(text-mode): Contruct paragraph-start so

that the leading `^' is at the start.  This is necessary because
paragraphs.el tries to remove anchors, but can find them only if
they are the first character.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7ce214c8d22..02263d03ff4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 1999-11-22  Gerd Moellmann  <gerd@gnu.org>
 
+        * textmodes/text-mode.el (text-mode): Contruct paragraph-start so
+        that the leading `^' is at the start.  This is necessary because
+        paragraphs.el tries to remove anchors, but can find them only if
+        they are the first character.
+
         * progmodes/antlr-mode.el: New file.
 
         * calendar/calendar.el: Fix autoload for
diff --git a/lisp/textmodes/text-mode.el b/lisp/textmodes/text-mode.el
index c0627b640f4..0c4be23ab60 100644
--- a/lisp/textmodes/text-mode.el
+++ b/lisp/textmodes/text-mode.el
@@ -75,7 +75,7 @@ Turning on Text mode runs the normal hook `text-mode-hook'."
   (setq local-abbrev-table text-mode-abbrev-table)
   (set-syntax-table text-mode-syntax-table)
   (make-local-variable 'paragraph-start)
-  (setq paragraph-start (concat "[ \t]*$\\|" page-delimiter))
+  (setq paragraph-start (concat page-delimiter "\\|[ \t]*$"))
   (make-local-variable 'paragraph-separate)
   (setq paragraph-separate paragraph-start)
   (make-local-variable 'indent-line-function)