diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-11-02 20:15:18 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-11-02 20:15:18 +0000 |
commit | f02c903228b0043c4e5c036d33411b7abfde12c4 (patch) | |
tree | cb494f1f085992b7f43bd1db8a3bebd360453bb6 | |
parent | 6ae792434741744db46754837cb2a3d907c1ce84 (diff) | |
download | emacs-f02c903228b0043c4e5c036d33411b7abfde12c4.tar.gz |
(change-log-fill-paragraph): Return non-nil so
fill-paragraph doesn't continue filling. Don't skip backwards
over a paragraph if we at a paragraph start.
-rw-r--r-- | lisp/add-log.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index 45d1893e0c0..ef0e83dbca1 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -355,10 +355,11 @@ Runs `change-log-mode-hook'." "Fill the paragraph, but preserve open parentheses at beginning of lines. Prefix arg means justify as well." (interactive "P") - (let ((end (save-excursion (forward-paragraph) (point))) - (beg (save-excursion (backward-paragraph)(point))) + (let ((end (progn (forward-paragraph) (point))) + (beg (progn (backward-paragraph) (point))) (paragraph-start (concat paragraph-start "\\|\\s *\\s("))) - (fill-region beg end justify))) + (fill-region beg end justify) + t)) (defvar add-log-current-defun-header-regexp "^\\([A-Z][A-Z_ ]*[A-Z_]\\|[-_a-zA-Z]+\\)[ \t]*[:=]" |