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 | 8d6467a40bf982a00e83e96cbf5613d4a9203f97 (patch) | |
| tree | 814395c1cabbb7be58a65ae2f34545facf905b27 /lisp/add-log.el | |
| parent | 6fac14093991171242d4f2d1a6cfabfcc5ed9667 (diff) | |
| download | emacs-8d6467a40bf982a00e83e96cbf5613d4a9203f97.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.
Diffstat (limited to 'lisp/add-log.el')
| -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]*[:=]" |