comparison lisp/progmodes/c-mode.el @ 1081:4e7d09b779eb

*** empty log message ***

1080:8f64d3122435

;;; c-mode.el --- C code editing commands for Emacs

;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.

;; Maintainer: FSF
;; Keywords: c

	       (max (1+ (current-column))	;Else indent at comment column
		    comment-column)))))))	; except leave at least one space.

(defun c-fill-paragraph (&optional arg)
  "Like \\[fill-paragraph] but handle C comments.
If point is inside a comment, the current paragraph of the comment
is filled, preserving the comment indentation or line-starting decorations."
  (interactive "P")
  (let ((first-line
	 ;; Check for obvious entry to comment.
	 (save-excursion
	   (beginning-of-line)
	   (skip-chars-forward " \t")
	   (looking-at comment-start-skip))))
    (if (or first-line
	    ;; t if we enter a comment between start of function and this line.
	    (eq (calculate-c-indent) t)
	    ;; See if we enter a comment between beg-of-line and here.
	    (nth 4 (parse-partial-sexp (save-excursion (beginning-of-line) (point))
				       (point) 0)))
	;; Inside a comment: fill one comment paragraph.
	(let ((fill-prefix
	       ;; The prefix for each line of this paragraph
	       ;; is the appropriate part of the start of this line,
	       ;; up to the column at which text should be indented.

				;; Go back to the DEFUN, if it is one.
				(condition-case nil
				    (backward-sexp 1)
				  (error))
				(beginning-of-line)
				(setq tem (point))
				(looking-at "DEFUN\\b"))
			      c-argdecl-indent
			    (if (and (looking-at "\\sw\\|\\s_")
				     (looking-at "[^\"\n=]*(")
				     (progn

1081:4e7d09b779eb

;;; c-mode.el --- C code editing commands for Emacs
;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.

;; Maintainer: FSF
;; Keywords: c

	       (max (1+ (current-column))	;Else indent at comment column
		    comment-column)))))))	; except leave at least one space.

(defun c-fill-paragraph (&optional arg)
  "Like \\[fill-paragraph] but handle C comments.
If any of the current line is a comment or within a comment,
fill the comment or the paragraph of it that point is in,
preserving the comment indentation or line-starting decorations."
  (interactive "P")
  (let ((first-line
	 ;; Check for obvious entry to comment.
	 (save-excursion
	   (beginning-of-line)
	   (skip-chars-forward " \t")
	   (looking-at comment-start-skip))))
    (if (or first-line
	    ;; t if we enter a comment between start of function and this line.
	    (eq (calculate-c-indent) t)
	    ;; t if this line contains a comment starter.
	    (save-excursion (beginning-of-line)
			    (re-search-forward comment-start-skip
					       (save-excursion (end-of-line)
							       (point))
					       t)))
	;; Inside a comment: fill one comment paragraph.
	(let ((fill-prefix
	       ;; The prefix for each line of this paragraph
	       ;; is the appropriate part of the start of this line,
	       ;; up to the column at which text should be indented.

				;; Go back to the DEFUN, if it is one.
				(condition-case nil
				    (backward-sexp 1)
				  (error))
				(beginning-of-line)
				(looking-at "DEFUN\\b"))
			      c-argdecl-indent
			    (if (and (looking-at "\\sw\\|\\s_")
				     (looking-at "[^\"\n=]*(")
				     (progn