Commit a066720c authored by John Anthony's avatar John Anthony Committed by Glenn Morris
Browse files

* lisp/textmodes/text-mode.el (text-mode-map): Add a menu (tiny change)

Fixes: debbugs:15562
parent 2edcd3c7
2013-10-10 John Anthony <john@jo.hnanthony.com> (tiny change)
* textmodes/text-mode.el (text-mode-map): Add a menu. (Bug#15562)
2013-10-09 Juri Linkov <juri@jurta.org>
* isearch.el (isearch-pre-command-hook): Use this-single-command-keys
......
......@@ -51,6 +51,27 @@ Use (derived-mode-p 'text-mode) instead.")
(defvar text-mode-map
(let ((map (make-sparse-keymap)))
(define-key map "\e\t" 'ispell-complete-word)
(define-key map [menu-bar text]
(cons "Text" (make-sparse-keymap "Text")))
(bindings--define-key map [menu-bar text toggle-text-mode-auto-fill]
'(menu-item "Auto Fill" toggle-text-mode-auto-fill
:button (:toggle . (memq 'turn-on-auto-fill text-mode-hook))
:help "Toggle auto fill within text modes"))
(bindings--define-key map [menu-bar text paragraph-indent-minor-mode]
'(menu-item "Paragraph Indent" paragraph-indent-minor-mode
:button (:toggle . (bound-and-true-p paragraph-indent-minor-mode))
:help "Toggle paragraph indent minor mode"))
(bindings--define-key map [menu-bar text sep] menu-bar-separator)
(bindings--define-key map [menu-bar text center-region]
'(menu-item "Center Region" center-region
:help "Center the marked region"
:enable (region-active-p)))
(bindings--define-key map [menu-bar text center-paragraph]
'(menu-item "Center Paragraph" center-paragraph
:help "Center the current paragraph"))
(bindings--define-key map [menu-bar text center-line]
'(menu-item "Center Line" center-line
:help "Center the current line"))
map)
"Keymap for `text-mode'.
Many other modes, such as `mail-mode', `outline-mode' and `indented-text-mode',
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment