[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 453db25 2/4: Use `define-keymap' in gnus-registry-install-shortcu
From: |
Lars Ingebrigtsen |
Subject: |
master 453db25 2/4: Use `define-keymap' in gnus-registry-install-shortcuts |
Date: |
Wed, 6 Oct 2021 06:08:01 -0400 (EDT) |
branch: master
commit 453db254132f2621b5a2a37e313a64d3e30a4994
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Use `define-keymap' in gnus-registry-install-shortcuts
* lisp/gnus/gnus-registry.el (gnus-registry-install-shortcuts):
Use `define-keymap'.
---
lisp/gnus/gnus-registry.el | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/lisp/gnus/gnus-registry.el b/lisp/gnus/gnus-registry.el
index 11913a2..9e581d4 100644
--- a/lisp/gnus/gnus-registry.el
+++ b/lisp/gnus/gnus-registry.el
@@ -990,9 +990,8 @@ Uses `gnus-registry-marks' to find what shortcuts to
install."
gnus-registry-misc-menus)
(gnus-message 9 "Defined mark handling function %s"
function-name))))))
- (gnus-define-keys-1
- '(gnus-registry-mark-map "M" gnus-summary-mark-map)
- keys-plist)
+ (define-key gnus-summary-mark-map "M"
+ (apply #'define-keymap :prefix "M" 'gnus-summary-mark-map keys-plist))
(add-hook 'gnus-summary-menu-hook
(lambda ()
(easy-menu-add-item