From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 11 Nov 1995 05:32:13 +0000 (+0000)
Subject: (lisp-mode-variables, lisp-fill-paragraph): Remove
X-Git-Tag: emacs-19.34~2356
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=763d157993da52634f57506a78141701d44aec49;p=emacs.git

(lisp-mode-variables, lisp-fill-paragraph): Remove
"^" from paragraph-start and paragraph-separate.  Moved
page-delimiter first in case it has a "^" also.
---

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index ab08912cad7..d8eaca3c808 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -95,7 +95,7 @@
 	  (set-syntax-table lisp-mode-syntax-table)))
   (setq local-abbrev-table lisp-mode-abbrev-table)
   (make-local-variable 'paragraph-start)
-  (setq paragraph-start (concat "^$\\|" page-delimiter))
+  (setq paragraph-start (concat page-delimiter "\\|$" ))
   (make-local-variable 'paragraph-separate)
   (setq paragraph-separate paragraph-start)
   (make-local-variable 'paragraph-ignore-fill-prefix)
@@ -731,8 +731,8 @@ and initial semicolons."
 	   (point)))
 
 	;; Lines with only semicolons on them can be paragraph boundaries.
-	(let ((paragraph-start (concat paragraph-start "\\|^[ \t;]*$"))
-	      (paragraph-separate (concat paragraph-start "\\|^[ \t;]*$"))
+	(let ((paragraph-start (concat paragraph-start "\\|[ \t;]*$"))
+	      (paragraph-separate (concat paragraph-start "\\|[ \t;]*$"))
 	      (fill-prefix comment-fill-prefix))
 	  (fill-paragraph justify))))
     t))