(indented-text-mode): Make only blank lines
separate or start paragraphs. Doc fix.
This commit is contained in:
parent
d00a8c7893
commit
426979a1c8
1 changed files with 8 additions and 1 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Reference in a new issue