mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

Document using make-composed-keymap with defvar-keymap

Browse Source 
* doc/lispref/keymaps.texi (Inheritance and Keymaps): Document
using 'make-composed-keymap' with 'defvar-keymap'.

* lisp/help-mode.el (help-mode-map): Use defvar-keymap to make this
code match the above documentation change.
This commit is contained in:
Stefan Kangas 2022-07-04 18:19:20 +02:00
parent 6d3adedcf1
commit 616d3c24e2
2 changed files with 21 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
doc/lispref/keymaps.texi
View File

@ -579,11 +579,10 @@ override any non-@code{nil} binding in any other of the @var{maps}.
@code{button-buffer-map} and @code{special-mode-map}:
@example
(defvar help-mode-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map
(make-composed-keymap button-buffer-map special-mode-map))
... map) ... )
(defvar-keymap help-mode-map
:parent (make-composed-keymap button-buffer-map
special-mode-map)
...)
@end example

36
lisp/help-mode.el
View File

@ -31,25 +31,23 @@
(require 'cl-lib)
(defvar help-mode-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map (make-composed-keymap button-buffer-map
special-mode-map))
(define-key map "n" 'help-goto-next-page)
(define-key map "p" 'help-goto-previous-page)
(define-key map "l" 'help-go-back)
(define-key map "r" 'help-go-forward)
(define-key map "\C-c\C-b" 'help-go-back)
(define-key map "\C-c\C-f" 'help-go-forward)
(define-key map [XF86Back] 'help-go-back)
(define-key map [XF86Forward] 'help-go-forward)
(define-key map "\C-c\C-c" 'help-follow-symbol)
(define-key map "s" 'help-view-source)
(define-key map "I" 'help-goto-lispref-info)
(define-key map "i" 'help-goto-info)
(define-key map "c" 'help-customize)
map)
"Keymap for Help mode.")
(defvar-keymap help-mode-map
:doc "Keymap for Help mode."
:parent (make-composed-keymap button-buffer-map
special-mode-map)
"n" #'help-goto-next-page
"p" #'help-goto-previous-page
"l" #'help-go-back
"r" #'help-go-forward
"C-c C-b" #'help-go-back
"C-c C-f" #'help-go-forward
"<XF86Back>" #'help-go-back
"<XF86Forward>" #'help-go-forward
"C-c C-c" #'help-follow-symbol
"s" #'help-view-source
"I" #'help-goto-lispref-info
"i" #'help-goto-info
"c" #'help-customize)
(easy-menu-define help-mode-menu help-mode-map
"Menu for Help mode."