mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Prefer defvar-keymap in several cases

Browse source 
* lisp/calc/calc-embed.el (calc-override-minor-modes-map):
* lisp/calc/calc-yank.el (calc-edit-mode-map):
* lisp/calc/calc.el (calc-trail-mode-map):
* lisp/cedet/semantic/mru-bookmark.el (semantic-mru-bookmark-mode-map):
* lisp/cedet/semantic/util-modes.el (semantic-highlight-edits-mode-map)
(semantic-show-unmatched-syntax-mode-map)
(semantic-show-parser-state-mode-map)
(semantic-stickyfunc-mode-map, semantic-highlight-func-mode-map):
* lisp/cedet/srecode/srt-mode.el (srecode-template-mode-map):
* lisp/gnus/gnus-art.el (gnus-prev-page-map, gnus-next-page-map):
* lisp/gnus/gnus-search.el (gnus-search-minibuffer-map):
* lisp/gnus/score-mode.el (gnus-score-mode-map):
* lisp/gnus/smime.el (smime-mode-map):
* lisp/indent.el (edit-tab-stops-map):
* lisp/isearch.el (minibuffer-local-isearch-map):
* lisp/printing.el (pr-interface-map):
* lisp/progmodes/prog-mode.el (prog-mode-map):
* lisp/progmodes/subword.el (subword-mode-map):
* lisp/reveal.el (reveal-mode-map):
* lisp/strokes.el (strokes-mode-map):
* lisp/textmodes/flyspell.el (flyspell-mouse-map):
* lisp/textmodes/less-css-mode.el (less-css-mode-map):
* lisp/textmodes/remember.el (remember-mode-map)
(remember-notes-mode-map):
* lisp/wid-browse.el (widget-browse-mode-map):
* lisp/wid-edit.el (widget-key-sequence-map): Prefer defvar-keymap in
some easy-to-convert cases.
This commit is contained in:
Stefan Kangas 2022-09-13 15:05:28 +02:00
parent 280b40cd8a
commit aac4965702
22 changed files with 102 additions and 158 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/gnus/gnus-art.el
View file

@ -8550,17 +8550,13 @@ url is put as the `gnus-button-url' overlay property on the button."
(defvar gnus-next-page-line-format "%{%(Next page...%)%}\n")
(defvar gnus-prev-page-line-format "%{%(Previous page...%)%}\n")
(defvar gnus-prev-page-map
(let ((map (make-sparse-keymap)))
(define-key map [mouse-2] #'gnus-button-prev-page)
(define-key map "\r" #'gnus-button-prev-page)
map))
(defvar-keymap gnus-prev-page-map
"<mouse-2>" #'gnus-button-prev-page
"RET" #'gnus-button-prev-page)
(defvar gnus-next-page-map
(let ((map (make-sparse-keymap)))
(define-key map [mouse-2] #'gnus-button-next-page)
(define-key map "\r" #'gnus-button-next-page)
map))
(defvar-keymap gnus-next-page-map
"<mouse-2>" #'gnus-button-next-page
"RET" #'gnus-button-next-page)
(defun gnus-insert-prev-page-button ()
(let ((b (point)) e