(lisp-mode-variables, lisp-fill-paragraph): Remove

"^" from paragraph-start and paragraph-separate. Moved page-delimiter first in case it has a "^" also.

(lisp-mode-variables, lisp-fill-paragraph): Remove
"^" from paragraph-start and paragraph-separate. Moved page-delimiter first in case it has a "^" also.
763d1579 · Richard M. Stallman · a91f616d · 763d1579
Commit 763d1579 authored Nov 11, 1995 by Richard M. Stallman
Show whitespace changes
Inline Side-by-side

Showing with 3 additions and 3 deletions

lisp/emacs-lisp/lisp-mode.el lisp/emacs-lisp/lisp-mode.el +3 -3

No files found.
--- 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))