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

Prefer defvar-keymap in emacs-lisp/*.el

Browse source 
* lisp/emacs-lisp/backtrace.el (backtrace-mode-map):
* lisp/emacs-lisp/bytecomp.el (emacs-lisp-compilation-mode-map):
* lisp/emacs-lisp/checkdoc.el (checkdoc-minor-mode-map):
* lisp/emacs-lisp/crm.el (crm-local-completion-map)
(crm-local-must-match-map):
* lisp/emacs-lisp/debug.el (debugger-mode-map):
* lisp/emacs-lisp/edebug.el (edebug-mode-map, edebug-global-map)
(edebug-eval-mode-map):
* lisp/emacs-lisp/eieio-custom.el (eieio-custom-mode-map):
* lisp/emacs-lisp/elp.el (elp-results-symname-map):
* lisp/emacs-lisp/lisp-mode.el (lisp-mode-shared-map):
* lisp/emacs-lisp/re-builder.el (reb-mode-map)
(reb-lisp-mode-map, reb-subexp-mode-map):
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-mode-map)
(tabulated-list-sort-button-map):
* lisp/emacs-lisp/timer-list.el (timer-list-mode-map):
This commit is contained in:
Stefan Kangas 2022-07-04 18:42:26 +02:00
parent 616d3c24e2
commit 162c6c12f9
12 changed files with 314 additions and 347 deletions
Download patch file Download diff file Expand all files Collapse all files

47
lisp/emacs-lisp/tabulated-list.el
View file

@ -216,33 +216,28 @@ If ADVANCE is non-nil, move forward by one line afterwards."
(while (re-search-forward re nil 'noerror)
(tabulated-list-put-tag empty)))))
(defvar tabulated-list-mode-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map (make-composed-keymap
button-buffer-map
special-mode-map))
(define-key map "n" 'next-line)
(define-key map "p" 'previous-line)
(define-key map (kbd "M-<left>") 'tabulated-list-previous-column)
(define-key map (kbd "M-<right>") 'tabulated-list-next-column)
(define-key map "S" 'tabulated-list-sort)
(define-key map "}" 'tabulated-list-widen-current-column)
(define-key map "{" 'tabulated-list-narrow-current-column)
(define-key map [follow-link] 'mouse-face)
(define-key map [mouse-2] 'mouse-select-window)
map)
"Local keymap for `tabulated-list-mode' buffers.")
(defvar-keymap tabulated-list-mode-map
:doc "Local keymap for `tabulated-list-mode' buffers."
:parent (make-composed-keymap button-buffer-map
special-mode-map)
"n" #'next-line
"p" #'previous-line
"M-<left>" #'tabulated-list-previous-column
"M-<right>" #'tabulated-list-next-column
"S" #'tabulated-list-sort
"}" #'tabulated-list-widen-current-column
"{" #'tabulated-list-narrow-current-column
"<follow-link>" 'mouse-face
"<mouse-2>" #'mouse-select-window)
(defvar tabulated-list-sort-button-map
(let ((map (make-sparse-keymap)))
(define-key map [header-line mouse-1] 'tabulated-list-col-sort)
(define-key map [header-line mouse-2] 'tabulated-list-col-sort)
(define-key map [mouse-1] 'tabulated-list-col-sort)
(define-key map [mouse-2] 'tabulated-list-col-sort)
(define-key map "\C-m" 'tabulated-list-sort)
(define-key map [follow-link] 'mouse-face)
map)
"Local keymap for `tabulated-list-mode' sort buttons.")
(defvar-keymap tabulated-list-sort-button-map
:doc "Local keymap for `tabulated-list-mode' sort buttons."
"<header-line> <mouse-1>" #'tabulated-list-col-sort
"<header-line> <mouse-2>" #'tabulated-list-col-sort
"<mouse-1>" #'tabulated-list-col-sort
"<mouse-2>" #'tabulated-list-col-sort
"RET" #'tabulated-list-sort
"<follow-link>" 'mouse-face)
(defun tabulated-list-make-glyphless-char-display-table ()
"Make the `glyphless-char-display' table used for text-mode frames.