From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 29 Aug 1997 17:07:26 +0000 (+0000)
Subject: (text-mode-hook-identify): New function,
X-Git-Tag: emacs-20.1~328
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d910f08cc1461bc7b6fd91668b4850787eb36795;p=emacs.git

(text-mode-hook-identify): New function,
put on text-mode-hook.  Set text-mode-variant here.
(text-mode): Don't set it here.
---

diff --git a/lisp/textmodes/text-mode.el b/lisp/textmodes/text-mode.el
index eb06fdaeb5f..2a51f03e4b3 100644
--- a/lisp/textmodes/text-mode.el
+++ b/lisp/textmodes/text-mode.el
@@ -78,8 +78,6 @@ Turning on Text mode runs the normal hook `text-mode-hook'."
   (setq paragraph-start (concat "[ \t]*$\\|" page-delimiter))
   (make-local-variable 'paragraph-separate)
   (setq paragraph-separate paragraph-start)
-  (make-local-variable 'text-mode-variant)
-  (setq text-mode-variant t)
   (setq mode-name "Text")
   (setq major-mode 'text-mode)
   (run-hooks 'text-mode-hook))
@@ -103,6 +101,14 @@ Turning on Paragraph-Indent Text mode runs the normal hooks
       
 (defalias 'indented-text-mode '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."
+  (make-local-variable 'text-mode-variant)
+  (setq 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.
 This command affects all buffers that use modes related to Text mode,