Mercurial > emacs
changeset 1081:4e7d09b779eb
*** empty log message ***
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 04 Sep 1992 23:38:45 +0000 |
| parents | 8f64d3122435 |
| children | d24afc1bef38 |
| files | lisp/progmodes/c-mode.el |
| diffstat | 1 files changed, 9 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/c-mode.el Fri Sep 04 21:51:42 1992 +0000 +++ b/lisp/progmodes/c-mode.el Fri Sep 04 23:38:45 1992 +0000 @@ -1,5 +1,4 @@ ;;; c-mode.el --- C code editing commands for Emacs - ;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc. ;; Maintainer: FSF @@ -236,8 +235,9 @@ (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." +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. @@ -248,9 +248,12 @@ (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))) + ;; 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 @@ -534,7 +537,6 @@ (backward-sexp 1) (error)) (beginning-of-line) - (setq tem (point)) (looking-at "DEFUN\\b")) c-argdecl-indent (if (and (looking-at "\\sw\\|\\s_")