Skip to content

Commit

Permalink
(change-log-fill-paragraph): Return non-nil so
Browse files Browse the repository at this point in the history
fill-paragraph doesn't continue filling.  Don't skip backwards
over a paragraph if we at a paragraph start.
  • Loading branch information
Richard M. Stallman committed Nov 2, 1996
1 parent 6ae7924 commit f02c903
Showing 1 changed file with 4 additions and 3 deletions.
7 changes: 4 additions & 3 deletions lisp/add-log.el
Original file line number Diff line number Diff line change
Expand Up @@ -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]*[:=]"
Expand Down

0 comments on commit f02c903

Please sign in to comment.