From: Dave Love <fx@gnu.org>
Date: Wed, 18 Mar 1998 16:02:37 +0000 (+0000)
Subject: (lisp-fill-paragraph): Adjust
X-Git-Tag: emacs-20.3~1861
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fe3188ecbd12e887dc41940328bbbac51652c6ca;p=emacs.git

(lisp-fill-paragraph): Adjust
paragraph-start in default filling case so that filling doc
strings works.
---

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index d248479cdb3..109a891b579 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -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