4.4BSD/usr/src/contrib/emacs-18.57/lisp/c-fill.elc


(defvar c-comment-starting-blank t "\
*Controls whether global comments have an initial blank line.")

(defvar c-comment-indenting t "\
*If set global comments are indented to the level of the previous line.")

(defvar c-comment-hanging-indent t "\
*If true, comments will be automatically indented to the dash.")

(defvar c-hang-already-done t "\
If true we have performed the haning indent already for this comment.")

(defvar c-comment-mode-map nil "\
Keymap used in C comment mode.")

(if c-comment-mode-map nil (setq c-comment-mode-map (copy-keymap c-mode-map)) (define-key c-comment-mode-map "
" (quote newline)) (define-key c-comment-mode-map "q" (quote set-fill-and-fill)) (define-key c-comment-mode-map "
" (quote set-fill-and-return)))

(defun c-comment nil "\
Edit a C comment with filling and indentation.
This performs hanging indentation, symmetric placement of delimiters,
 and Indented-Text mode style indentation.  Type 'M-x apropos
c-comment' for information on options." (interactive) (byte-code "̈	
Ђ	#1``\\\"\")
̉
!
?~ c`! `	 	#)ni\\Xvcxc `!  #!`	!	#?	#?!	#`!!?\") !." [auto-fill-hook c-comment-indenting comment-multi-line t comment-start-skip paragraph-start-ref paragraph-start fill-prefix paragraph-separate opoint in-comment c-hang-already-done nil c-comment-mode-map c-comment-starting-blank c-mode-map do-indented-auto-fill do-auto-fill "/*\\*+[ 	]*" re-search-backward "/\\*\\|\\*/" 0 string= "/*" buffer-substring 2 use-local-map c-indent-line "/* " get-current-fill recursive-edit beginning-of-line search-forward 3 79 " */" "
*/" "*/" buffer-size forward-line 1 -1 search-backward re-search-forward looking-at "
" insert 10] 26))

(defun set-fill-and-fill (arg) "\
Get the fill-prefix and fill the current paragraph." (interactive "P") (byte-code "ˆ`!	!" [fill-prefix arg nil get-current-fill fill-paragraph] 3))

(defun set-fill-and-return nil "\
Set the current fill prefix and move to the next line." (interactive) (byte-code "ˆ`!	\"" [c-comment-indenting fill-prefix nil get-current-fill insert 10] 4))

(defun do-indented-auto-fill nil "\
Perform auto-fill, but get fill-prefix first." (byte-code "`	T!!n#!n?)+!\"))" [opoint fill-column t fill-prefix move-to-column skip-chars-backward "^ 	
" re-search-forward "[ 	]" " 	" get-current-fill insert 10] 8))

(defun get-current-fill (pnt) "\
Get the current fill prefix.
A valid fill prefix must be between the beginning of the line and point." (byte-code "	 `#`\"

GS
GO\"?.\"?6
P
#G?p` `	 	#o
`Z\"Pʼn*

GSO!R

)
+" [opoint pnt fill last-char comment-start-skip t c-comment-hanging-indent c-hang-already-done curr opnt paragraph-start paragraph-start-ref paragraph-separate nil beginning-of-line buffer-substring re-search-forward string= " " "	" replace-letter "/" end-of-line search-forward " - " make-string 32 "\\|^" regexp-quote 0 "$"] 16))

(defun replace-letter (str old-letter new-letter) (byte-code "G
W1

TO	
\"$%	P
T	," [new-str c sp size str old-letter new-letter nil 0 string=] 5))