(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.

diff --git a/lisp/add-log.el b/lisp/add-log.el
index 45d1893e0c0c38556b10095f3ee71ccf13688e2a..ef0e83dbca1b5992364723b26440ee23d4d2a75b 100644 (file)
--- 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))
 \f
 (defvar add-log-current-defun-header-regexp
   "^\\([A-Z][A-Z_ ]*[A-Z_]\\|[-_a-zA-Z]+\\)[ \t]*[:=]"