Commit 8d6467a4 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(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.
parent 6fac1409
......@@ -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]*[:=]"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment