diff lisp/textmodes/text-mode.el @ 4744:ea4df8504763

(indented-text-mode): Make only blank lines separate or start paragraphs. Doc fix.

--- a/lisp/textmodes/text-mode.el	Sun Sep 19 19:28:39 1993 +0000
+++ b/lisp/textmodes/text-mode.el	Sun Sep 19 19:32:35 1993 +0000
@@ -87,7 +87,10 @@
     (setq indented-text-mode-map (nconc newmap text-mode-map))))
 
 (defun indented-text-mode ()
-  "Major mode for editing indented text intended for humans to read.
+  "Major mode for editing text with indented paragraphs.
+In this mode, paragraphs are delimited only by blank lines.
+You can thus get the benefit of adaptive filling
+ (see the variable `adaptive-fill-mode').
 \\{indented-text-mode-map}
 Turning on `indented-text-mode' calls the value of the variable
 `text-mode-hook', if that value is non-nil."
@@ -99,6 +102,10 @@
   (set-syntax-table text-mode-syntax-table)
   (make-local-variable 'indent-line-function)
   (setq indent-line-function 'indent-relative-maybe)
+  (make-local-variable 'paragraph-start)
+  (setq paragraph-start (concat "^$\\|" page-delimiter))
+  (make-local-variable 'paragraph-separate)
+  (setq paragraph-separate paragraph-start)
   (use-local-map indented-text-mode-map)
   (setq mode-name "Indented Text")
   (setq major-mode 'indented-text-mode)