Mercurial > emacs

comparison lisp/textmodes/text-mode.el @ 28108:0d9cac36402a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(text-mode-hook): Add flyspell-mode to :options.
author Dave Love <fx@gnu.org>
date Sun, 12 Mar 2000 15:22:14 +0000
parents 6047ac0aaa7c
children 253f761ad37b
comparison
equal deleted inserted replaced
28107:7a7b3b2c177a 28108:0d9cac36402a
29 ;;; Code: 29 ;;; Code:
30 30
31 (defcustom text-mode-hook nil 31 (defcustom text-mode-hook nil
32 "Normal hook run when entering Text mode and many related modes." 32 "Normal hook run when entering Text mode and many related modes."
33 :type 'hook 33 :type 'hook
34 :options '(turn-on-auto-fill) 34 :options '(turn-on-auto-fill flyspell-mode)
35 :group 'data) 35 :group 'data)
36 36
37 (defvar text-mode-variant nil 37 (defvar text-mode-variant nil
38 "Non-nil if this buffer's major mode is a variant of Text mode.") 38 "Non-nil if this buffer's major mode is a variant of Text mode.")
39 39
190 (delete-horizontal-space) 190 (delete-horizontal-space)
191 (end-of-line) 191 (end-of-line)
192 (delete-horizontal-space) 192 (delete-horizontal-space)
193 (setq line-length (current-column)) 193 (setq line-length (current-column))
194 (if (> (- fill-column lm line-length) 0) 194 (if (> (- fill-column lm line-length) 0)
195 (indent-line-to 195 (indent-line-to
196 (+ lm (/ (- fill-column lm line-length) 2)))))) 196 (+ lm (/ (- fill-column lm line-length) 2))))))
197 (cond ((null nlines) 197 (cond ((null nlines)
198 (setq nlines 0)) 198 (setq nlines 0))
199 ((> nlines 0) 199 ((> nlines 0)
200 (setq nlines (1- nlines)) 200 (setq nlines (1- nlines))