Lines Matching defs:text
0 ;;; text-mode.el --- text mode, and its idiosyncratic commands
28 ;; This package provides the fundamental text mode documented in the
33 (defcustom text-mode-hook nil
39 (defvar text-mode-variant nil
41 Use (derived-mode-p 'text-mode) instead.")
43 (defvar text-mode-syntax-table
50 "Syntax table used while in `text-mode'.")
52 (defvar text-mode-map
58 "Keymap for `text-mode'.
59 Many other modes, such as `mail-mode', `outline-mode' and `indented-text-mode',
64 (define-derived-mode text-mode nil "Text"
65 "Major mode for editing text written for humans to read.
69 \\{text-mode-map}
70 Turning on Text mode runs the normal hook `text-mode-hook'."
71 (make-local-variable 'text-mode-variant)
72 (setq text-mode-variant t)
77 (define-derived-mode paragraph-indent-text-mode text-mode "Parindent"
78 "Major mode for editing text, with leading spaces starting a paragraph.
83 \\{text-mode-map}
85 `text-mode-hook' and `paragraph-indent-text-mode-hook'."
90 "Minor mode for editing text, with leading spaces starting a paragraph.
93 `paragraph-indent-text-mode'.
95 `paragraph-indent-text-mode-hook'."
100 (run-hooks 'paragraph-indent-text-mode-hook))
102 (defalias 'indented-text-mode 'text-mode)
104 ;; This can be made a no-op once all modes that use text-mode-hook
105 ;; are "derived" from text-mode.
106 (defun text-mode-hook-identify ()
107 "Mark that this mode has run `text-mode-hook'.
108 This is how `toggle-text-mode-auto-fill' knows which buffers to operate on."
109 (set (make-local-variable 'text-mode-variant) t))
111 (add-hook 'text-mode-hook 'text-mode-hook-identify)
113 (defun toggle-text-mode-auto-fill ()
118 (let ((enable-mode (not (memq 'turn-on-auto-fill text-mode-hook))))
120 (add-hook 'text-mode-hook 'turn-on-auto-fill)
121 (remove-hook 'text-mode-hook 'turn-on-auto-fill))
124 (if (or (derived-mode-p 'text-mode) text-mode-variant)
160 the distance between the end of the text and `fill-column'.
186 ;;; text-mode.el ends here