From d910f08cc1461bc7b6fd91668b4850787eb36795 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 29 Aug 1997 17:07:26 +0000 Subject: [PATCH] (text-mode-hook-identify): New function, put on text-mode-hook. Set text-mode-variant here. (text-mode): Don't set it here. --- lisp/textmodes/text-mode.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) 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, -- 2.39.2