mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Fix defvar-keymap example in elisp manual

Browse source 
* lisp/textmodes/text-mode.el (text-mode-map): Convert to
defvar-keymap.
* doc/lispref/modes.texi (Example Major Modes): Fix example to
match code.
This commit is contained in:
Stefan Kangas 2022-08-06 16:47:22 +02:00
parent 56783e605c
commit a3e894810a
2 changed files with 8 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

9
doc/lispref/modes.texi
View file

@ -1356,11 +1356,10 @@ the conventions listed above:
;; @r{Create the keymap for this mode.} ;; @r{Create the keymap for this mode.}
@group @group
(defvar-keymap text-mode-map (defvar-keymap text-mode-map
"C-M-i" #'ispell-complete-word :doc "Keymap for `text-mode'.
@dots{}) Many other modes, such as `mail-mode' and `outline-mode', inherit all
"Keymap for `text-mode'. the commands defined in this map."
Many other modes, such as `mail-mode', `outline-mode' and "C-M-i" #'ispell-complete-word)
`indented-text-mode', inherit all the commands defined in this map.")
@end group @end group
@end smallexample @end smallexample

10
lisp/textmodes/text-mode.el
View file

@ -67,13 +67,11 @@
st) st)
"Syntax table used while in `text-mode'.") "Syntax table used while in `text-mode'.")
(defvar text-mode-map (defvar-keymap text-mode-map
(let ((map (make-sparse-keymap))) :doc "Keymap for `text-mode'.
(define-key map "\e\t" #'ispell-complete-word)
map)
"Keymap for `text-mode'.
Many other modes, such as `mail-mode' and `outline-mode', inherit Many other modes, such as `mail-mode' and `outline-mode', inherit
all the commands defined in this map.") all the commands defined in this map."
"C-M-i" #'ispell-complete-word)
(easy-menu-define text-mode-menu text-mode-map (easy-menu-define text-mode-menu text-mode-map
"Menu for `text-mode'." "Menu for `text-mode'."