65 |
(see the variable `adaptive-fill-mode'). |
(see the variable `adaptive-fill-mode'). |
66 |
\\{text-mode-map} |
\\{text-mode-map} |
67 |
Turning on Text mode runs the normal hook `text-mode-hook'." |
Turning on Text mode runs the normal hook `text-mode-hook'." |
68 |
|
(make-local-variable 'text-mode-variant) |
69 |
|
(setq text-mode-variant t) |
70 |
(set (make-local-variable 'indent-line-function) 'indent-relative)) |
(set (make-local-variable 'indent-line-function) 'indent-relative)) |
71 |
|
|
72 |
(define-derived-mode paragraph-indent-text-mode text-mode "Parindent" |
(define-derived-mode paragraph-indent-text-mode text-mode "Parindent" |
95 |
|
|
96 |
(defalias 'indented-text-mode 'text-mode) |
(defalias 'indented-text-mode 'text-mode) |
97 |
|
|
|
(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) |
|
|
|
|
98 |
(defun toggle-text-mode-auto-fill () |
(defun toggle-text-mode-auto-fill () |
99 |
"Toggle whether to use Auto Fill in Text mode and related modes. |
"Toggle whether to use Auto Fill in Text mode and related modes. |
100 |
This command affects all buffers that use modes related to Text mode, |
This command affects all buffers that use modes related to Text mode, |