diff options
| author | Richard M. Stallman | 1996-01-26 19:47:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-01-26 19:47:32 +0000 |
| commit | b5e89ed1d70dfec2b857466ec3980ca63ce52e23 (patch) | |
| tree | 3b4d01047e7572d2926a29e59a591227acbc64ea | |
| parent | 88c2fc2c6eb4f7626b16c8b27db1a04557461b31 (diff) | |
| download | emacs-b5e89ed1d70dfec2b857466ec3980ca63ce52e23.tar.gz emacs-b5e89ed1d70dfec2b857466ec3980ca63ce52e23.zip | |
(lisp-fill-paragraph): Use fill-paragraph once again for filling a comment.
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index d7b28049d4f..fcf1222fa2e 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el | |||
| @@ -742,7 +742,7 @@ and initial semicolons." | |||
| 742 | (save-excursion | 742 | (save-excursion |
| 743 | (while (and (zerop (forward-line -1)) | 743 | (while (and (zerop (forward-line -1)) |
| 744 | (looking-at "^[ \t]*;"))) | 744 | (looking-at "^[ \t]*;"))) |
| 745 | ;; We may have gone to far. Go forward again. | 745 | ;; We may have gone too far. Go forward again. |
| 746 | (or (looking-at ".*;") | 746 | (or (looking-at ".*;") |
| 747 | (forward-line 1)) | 747 | (forward-line 1)) |
| 748 | (point)) | 748 | (point)) |
| @@ -756,7 +756,7 @@ and initial semicolons." | |||
| 756 | (let ((paragraph-start (concat paragraph-start "\\|[ \t;]*$")) | 756 | (let ((paragraph-start (concat paragraph-start "\\|[ \t;]*$")) |
| 757 | (paragraph-separate (concat paragraph-start "\\|[ \t;]*$")) | 757 | (paragraph-separate (concat paragraph-start "\\|[ \t;]*$")) |
| 758 | (fill-prefix comment-fill-prefix)) | 758 | (fill-prefix comment-fill-prefix)) |
| 759 | (fill-region (point-min) (point-max) justify t)))) | 759 | (fill-paragraph justify)))) |
| 760 | t)) | 760 | t)) |
| 761 | 761 | ||
| 762 | 762 | ||