mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/textmodes/text-mode.el (paragraph-indent-minor-mode): Make it

Browse source 
a proper minor-mode.
This commit is contained in:
Stefan Monnier 2012-09-29 23:20:00 -04:00
parent 98a5e33b90
commit 4ffb41a99e
2 changed files with 20 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2012-09-30 Stefan Monnier <monnier@iro.umontreal.ca>
* textmodes/text-mode.el (paragraph-indent-minor-mode): Make it
a proper minor-mode.
* textmodes/tex-mode.el (tex-mode-map): Don't bind paren keys.
2012-09-29 Glenn Morris <rgm@gnu.org>

23
lisp/textmodes/text-mode.el
View file

@ -80,18 +80,29 @@ Turning on Paragraph-Indent Text mode runs the normal hooks
:abbrev-table nil :syntax-table nil
(paragraph-indent-minor-mode))
(defun paragraph-indent-minor-mode ()
(define-minor-mode paragraph-indent-minor-mode
"Minor mode for editing text, with leading spaces starting a paragraph.
In this mode, you do not need blank lines between paragraphs when the
first line of the following paragraph starts with whitespace, as with
`paragraph-indent-text-mode'.
Turning on Paragraph-Indent minor mode runs the normal hook
`paragraph-indent-text-mode-hook'."
(interactive)
(set (make-local-variable 'paragraph-start)
(concat "[ \t\n\f]\\|" paragraph-start))
(set (make-local-variable 'indent-line-function) 'indent-to-left-margin)
(run-hooks 'paragraph-indent-text-mode-hook))
:initial-value nil
;; Change the definition of a paragraph start.
(let ((ps-re "[ \t\n\f]\\|"))
(if (eq t (compare-strings ps-re nil nil
paragraph-start nil (length ps-re)))
(if (not paragraph-indent-minor-mode)
(set (make-local-variable 'paragraph-start)
(substring paragraph-start (length ps-re))))
(if paragraph-indent-minor-mode
(set (make-local-variable 'paragraph-start)
(concat ps-re paragraph-start)))))
;; Change the indentation function.
(if paragraph-indent-minor-mode
(set (make-local-variable 'indent-line-function) 'indent-to-left-margin)
(if (eq indent-line-function 'indent-to-left-margin)
(set (make-local-variable 'indent-line-function) 'indent-region))))
(defalias 'indented-text-mode 'text-mode)