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

Use defvar-keymap for some trivial keymaps

Browse source 
* lisp/bindings.el (mode-line-window-dedicated-keymap)
(mode-line-buffer-identification-keymap):
* lisp/emulation/cua-rect.el (cua--overlay-keymap, cua--overlay-key):
* lisp/mh-e/mh-mime.el (mh-mime-security-button-map):
* lisp/mh-e/mh-utils.el (mh-hidden-header-keymap):
* lisp/net/eudc-bob.el (eudc-bob-generic-keymap, eudc-bob-image-keymap)
(eudc-bob-sound-keymap, eudc-bob-url-keymap, eudc-bob-mail-keymap):
* lisp/progmodes/etags-regen.el (etags-regen-mode-map):
* lisp/progmodes/octave.el (octave-help-mode-map):
* lisp/replace.el (multi-query-replace-map):
* lisp/simple.el (process-menu-mode-map, messages-buffer-mode-map):
* lisp/startup.el (splash-screen-keymap):
* lisp/tab-bar.el (tab-bar-mode-map):
* lisp/textmodes/ispell.el (ispell-minor-keymap):
* lisp/textmodes/tex-mode.el (latex-mode-map, plain-tex-mode-map):
* lisp/tree-widget.el (tree-widget-button-keymap):
* lisp/vc/vc-hooks.el (vc-mode-line-map): Use defvar-keymap.
This commit is contained in:
Stefan Kangas 2025-03-15 13:39:45 +01:00
parent a07465410a
commit d8d524071d
15 changed files with 85 additions and 125 deletions
Download patch file Download diff file Expand all files Collapse all files

30
lisp/bindings.el
View file

@ -300,11 +300,9 @@ Value is used for `mode-line-frame-identification', which see."
;;;###autoload
(put 'mode-line-frame-identification 'risky-local-variable t)
(defvar mode-line-window-dedicated-keymap
(let ((map (make-sparse-keymap)))
(define-key map [mode-line mouse-1] #'toggle-window-dedicated)
map)
"Keymap for what is displayed by `mode-line-window-dedicated'.")
(defvar-keymap mode-line-window-dedicated-keymap
:doc "Keymap for what is displayed by `mode-line-window-dedicated'."
"<mode-line> <mouse-1>" #'toggle-window-dedicated)
(defun mode-line-window-control ()
"Compute mode line construct for window dedicated state.
@ -628,20 +626,18 @@ Normally displays the buffer percentage and, optionally, the
buffer size, the line number and the column number.")
(put 'mode-line-position 'risky-local-variable t)
(defvar mode-line-buffer-identification-keymap
(defvar-keymap mode-line-buffer-identification-keymap
:doc "Keymap for what is displayed by `mode-line-buffer-identification'."
;; Add menu of buffer operations to the buffer identification part
;; of the mode line.or header line.
(let ((map (make-sparse-keymap)))
;; Bind down- events so that the global keymap won't ``shine
;; through''.
(define-key map [mode-line mouse-1] 'mode-line-previous-buffer)
(define-key map [header-line down-mouse-1] 'ignore)
(define-key map [header-line mouse-1] 'mode-line-previous-buffer)
(define-key map [mode-line mouse-3] 'mode-line-next-buffer)
(define-key map [header-line down-mouse-3] 'ignore)
(define-key map [header-line mouse-3] 'mode-line-next-buffer)
map) "\
Keymap for what is displayed by `mode-line-buffer-identification'.")
;; Bind down- events so that the global keymap won't ``shine
;; through''.
"<mode-line> <mouse-1>" #'mode-line-previous-buffer
"<header-line> <down-mouse-1>" #'ignore
"<header-line> <mouse-1>" #'mode-line-previous-buffer
"<mode-line> <mouse-3>" #'mode-line-next-buffer
"<header-line> <down-mouse-3>" #'ignore
"<header-line> <mouse-3>" #'mode-line-next-buffer)
(defun propertized-buffer-identification (fmt)
"Return a list suitable for `mode-line-buffer-identification'.