Mercurial > emacs

changeset 21213:2816d2c192fb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(lisp-fill-paragraph): Adjust paragraph-start in default filling case so that filling doc strings works.
author Dave Love <fx@gnu.org>
date Wed, 18 Mar 1998 16:02:37 +0000
parents 73a8874d25ce
children 7a873226ee07
files lisp/emacs-lisp/lisp-mode.el
diffstat 1 files changed, 11 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mode.el	Wed Mar 18 13:25:00 1998 +0000
+++ b/lisp/emacs-lisp/lisp-mode.el	Wed Mar 18 16:02:37 1998 +0000
@@ -802,7 +802,17 @@
 		      (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