Mercurial > emacs
changeset 43287:431e14e1690f
(text-mode-hook-identify): Restore previous definition.
Add to text-mode-hook again.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 14 Feb 2002 01:28:57 +0000 |
| parents | 3fda6d6f3078 |
| children | a583ad778ef6 |
| files | lisp/textmodes/text-mode.el |
| diffstat | 1 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/text-mode.el Thu Feb 14 00:38:41 2002 +0000 +++ b/lisp/textmodes/text-mode.el Thu Feb 14 01:28:57 2002 +0000 @@ -95,8 +95,14 @@ (defalias 'indented-text-mode 'text-mode) -;; No-op, defined because some user customizations use it. -(defun text-mode-hook-identify () nil) +;; This can be made a no-op once all modes that use text-mode-hook +;; are "derived" from text-mode. +(defun text-mode-hook-identify () + "Mark that this mode has run `text-mode-hook'. +This is how `toggle-text-mode-auto-fill' knows which buffers to operate on." + (set (make-local-variable 'text-mode-variant) t)) + +(add-hook 'text-mode-hook 'text-mode-hook-identify) (defun toggle-text-mode-auto-fill () "Toggle whether to use Auto Fill in Text mode and related modes.