Commit fe3188ec authored by Dave Love's avatar Dave Love
Browse files

(lisp-fill-paragraph): Adjust

paragraph-start in default filling case so that filling doc
strings works.
parent 01e02ab3
......@@ -802,7 +802,17 @@ and initial semicolons."
(buffer-substring (match-beginning 0) (match-end 0)))))))
(if (not has-comment)
(fill-paragraph justify)
;; `paragraph-start' is set here (not in the buffer-local
;; variable so that `forward-paragraph' et al work as
;; expected) so that filling (doc) strings works sensibly.
;; Adding the opening paren to avoid the following sexp being
;; filled means that sexps generally aren't filled as normal
;; text, which is probably sensible. The `;' and `:' stop the
;; filled para at following comment lines and keywords
;; (typically in `defcustom').
(let ((paragraph-start (concat paragraph-start
"\\|\\s-*[\(;:\"]")))
(fill-paragraph justify))
;; Narrow to include only the comment, and then fill the region.
(save-excursion
......
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