From 426979a1c897221451846de50f640a49a0b7fe2a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 19 Sep 1993 19:32:35 +0000 Subject: [PATCH] (indented-text-mode): Make only blank lines separate or start paragraphs. Doc fix. --- lisp/textmodes/text-mode.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/textmodes/text-mode.el b/lisp/textmodes/text-mode.el index fe51a39c2a8..c637b100790 100644 --- a/lisp/textmodes/text-mode.el +++ b/lisp/textmodes/text-mode.el @@ -87,7 +87,10 @@ All the commands defined in Text mode are inherited unless overridden.") (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 @@ Turning on `indented-text-mode' calls the value of the variable (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) -- 2.39.5