procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(change-log-fill-paragraph): Return non-nil so

Browse source 
fill-paragraph doesn't continue filling.  Don't skip backwards
over a paragraph if we at a paragraph start.
This commit is contained in:
Richard M. Stallman 1996-11-02 20:15:18 +00:00
parent 6fac140939
commit 8d6467a40b
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/add-log.el
View file

@ -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]*[:=]"