mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(lisp-fill-paragraph): Adjust

Browse source 
paragraph-start in default filling case so that filling doc
strings works.
This commit is contained in:
Dave Love 1998-03-18 16:02:37 +00:00
parent 01e02ab387
commit fe3188ecbd
1 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/emacs-lisp/lisp-mode.el
View file

@ -802,7 +802,17 @@ and initial semicolons."
(buffer-substring (match-beginning 0) (match-end 0))))))) (buffer-substring (match-beginning 0) (match-end 0)))))))
(if (not has-comment) (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. ;; Narrow to include only the comment, and then fill the region.
(save-excursion (save-excursion