95 |
|
|
96 |
(defalias 'indented-text-mode 'text-mode) |
(defalias 'indented-text-mode 'text-mode) |
97 |
|
|
98 |
;; No-op, defined because some user customizations use it. |
;; This can be made a no-op once all modes that use text-mode-hook |
99 |
(defun text-mode-hook-identify () nil) |
;; are "derived" from text-mode. |
100 |
|
(defun text-mode-hook-identify () |
101 |
|
"Mark that this mode has run `text-mode-hook'. |
102 |
|
This is how `toggle-text-mode-auto-fill' knows which buffers to operate on." |
103 |
|
(set (make-local-variable 'text-mode-variant) t)) |
104 |
|
|
105 |
|
(add-hook 'text-mode-hook 'text-mode-hook-identify) |
106 |
|
|
107 |
(defun toggle-text-mode-auto-fill () |
(defun toggle-text-mode-auto-fill () |
108 |
"Toggle whether to use Auto Fill in Text mode and related modes. |
"Toggle whether to use Auto Fill in Text mode and related modes. |