Mercurial > emacs
comparison lisp/textmodes/text-mode.el @ 28108:0d9cac36402a
(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)) |