From 453db254132f2621b5a2a37e313a64d3e30a4994 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 6 Oct 2021 12:04:37 +0200 Subject: [PATCH] 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 11913a213bd..9e581d4247c 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 -- 2.39.5