From 8d6467a40bf982a00e83e96cbf5613d4a9203f97 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 2 Nov 1996 20:15:18 +0000 Subject: [PATCH] (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. --- lisp/add-log.el | 7 ++++--- 1 file 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]*[:=]" -- 2.39.5