procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adjust defvar-keymap' and define-keymap' to the new syntax

Browse source 
* lisp/vc/smerge-mode.el (smerge-basic-map):
* lisp/vc/pcvs.el (cvs-mode-map):
(cvs-minor-mode-prefix):
* lisp/vc/log-view.el (log-view-mode-map):
* lisp/vc/log-edit.el (log-edit-mode-map):
* lisp/vc/diff-mode.el (diff-mode-shared-map):
(diff-minor-mode-prefix):
* lisp/vc/cvs-status.el (cvs-status-mode-map):
* lisp/simple.el (special-mode-map):
* lisp/outline.el (outline--insert-open-button):
(outline--insert-close-button):
* lisp/net/shr.el (shr-map):
* lisp/net/eww.el (eww-link-keymap):
(eww-mode-map):
(eww-submit-map):
(eww-bookmark-mode-map):
(eww-history-mode-map):
(eww-buffers-mode-map):
* lisp/mh-e/mh-speed.el (:keymap):
* lisp/mh-e/mh-show.el (:keymap):
* lisp/mh-e/mh-search.el (:keymap):
* lisp/mh-e/mh-letter.el (:keymap):
* lisp/mh-e/mh-folder.el (:keymap):
* lisp/international/emoji.el (emoji-list-mode-map):
* lisp/gnus/spam.el (:keymap):
* lisp/gnus/mml.el (mml-mode-map):
* lisp/gnus/message.el (message-mode-map):
* lisp/gnus/gnus-undo.el (gnus-undo-mode-map):
* lisp/gnus/gnus-topic.el (gnus-topic-mode-map):
* lisp/gnus/gnus-sum.el (:keymap):
* lisp/gnus/gnus-srvr.el (gnus-server-mode-map):
(gnus-browse-mode-map):
* lisp/gnus/gnus-salt.el (gnus-pick-mode-map):
(gnus-tree-mode-map):
* lisp/gnus/gnus-msg.el (:prefix):
* lisp/gnus/gnus-ml.el (gnus-mailing-list-mode-map):
* lisp/gnus/gnus-kill.el (gnus-kill-file-mode-map):
* lisp/gnus/gnus-html.el (gnus-html-displayed-image-map):
* lisp/gnus/gnus-group.el (:keymap):
* lisp/gnus/gnus-eform.el (gnus-edit-form-mode-map):
* lisp/gnus/gnus-draft.el (gnus-draft-mode-map):
* lisp/gnus/gnus-dired.el (gnus-dired-mode-map):
* lisp/gnus/gnus-bookmark.el (gnus-bookmark-bmenu-mode-map):
* lisp/gnus/gnus-art.el (:keymap):
(gnus-article-edit-mode-map):
* lisp/gnus/gnus-agent.el (gnus-agent-group-mode-map):
(gnus-agent-summary-mode-map):
(gnus-agent-server-mode-map):
(gnus-category-mode-map): Adjust `defvar-keymap' and
`define-keymap' to the new syntax.
This commit is contained in:
Lars Ingebrigtsen 2021-11-16 08:18:30 +01:00
parent de477ec683
commit 2daffe3550
35 changed files with 618 additions and 623 deletions
Download patch file Download diff file Expand all files Collapse all files

42
lisp/gnus/gnus-agent.el
View file

@ -476,15 +476,15 @@ manipulated as follows:
(intern (format "gnus-agent-%s-mode-hook" buffer)))))
(defvar-keymap gnus-agent-group-mode-map
"Ju" #'gnus-agent-fetch-groups
"Jc" #'gnus-enter-category-buffer
"Jj" #'gnus-agent-toggle-plugged
"Js" #'gnus-agent-fetch-session
"JY" #'gnus-agent-synchronize-flags
"JS" #'gnus-group-send-queue
"Ja" #'gnus-agent-add-group
"Jr" #'gnus-agent-remove-group
"Jo" #'gnus-agent-toggle-group-plugged)
"J u" #'gnus-agent-fetch-groups
"J c" #'gnus-enter-category-buffer
"J j" #'gnus-agent-toggle-plugged
"J s" #'gnus-agent-fetch-session
"J Y" #'gnus-agent-synchronize-flags
"J S" #'gnus-group-send-queue
"J a" #'gnus-agent-add-group
"J r" #'gnus-agent-remove-group
"J o" #'gnus-agent-toggle-group-plugged)
(defun gnus-agent-group-make-menu-bar ()
(unless (boundp 'gnus-agent-group-menu)
@ -504,14 +504,14 @@ manipulated as follows:
))))
(defvar-keymap gnus-agent-summary-mode-map
"Jj" #'gnus-agent-toggle-plugged
"Ju" #'gnus-agent-summary-fetch-group
"JS" #'gnus-agent-fetch-group
"Js" #'gnus-agent-summary-fetch-series
"J#" #'gnus-agent-mark-article
"J\M-#" #'gnus-agent-unmark-article
"J j" #'gnus-agent-toggle-plugged
"J u" #'gnus-agent-summary-fetch-group
"J S" #'gnus-agent-fetch-group
"J s" #'gnus-agent-summary-fetch-series
"J #" #'gnus-agent-mark-article
"J M-#" #'gnus-agent-unmark-article
"@" #'gnus-agent-toggle-mark
"Jc" #'gnus-agent-catchup)
"J c" #'gnus-agent-catchup)
(defun gnus-agent-summary-make-menu-bar ()
(unless (boundp 'gnus-agent-summary-menu)
@ -526,9 +526,9 @@ manipulated as follows:
["Catchup undownloaded" gnus-agent-catchup t]))))
(defvar-keymap gnus-agent-server-mode-map
"Jj" #'gnus-agent-toggle-plugged
"Ja" #'gnus-agent-add-server
"Jr" #'gnus-agent-remove-server)
"J j" #'gnus-agent-toggle-plugged
"J a" #'gnus-agent-add-server
"J r" #'gnus-agent-remove-server)
(defun gnus-agent-server-make-menu-bar ()
(unless (boundp 'gnus-agent-server-menu)
@ -2606,8 +2606,8 @@ General format specifiers can also be used. See Info node
"s" #'gnus-category-edit-score
"l" #'gnus-category-list
"\C-c\C-i" #'gnus-info-find-node
"\C-c\C-b" #'gnus-bug)
"C-c C-i" #'gnus-info-find-node
"C-c C-b" #'gnus-bug)
(defcustom gnus-category-menu-hook nil
"Hook run after the creation of the menu."