From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 6 Oct 2021 10:04:37 +0000 (+0200)
Subject: Use `define-keymap' in gnus-registry-install-shortcuts
X-Git-Tag: emacs-29.0.90~3671^2~633
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=453db254132f2621b5a2a37e313a64d3e30a4994;p=emacs.git

Use `define-keymap' in gnus-registry-install-shortcuts

* lisp/gnus/gnus-registry.el (gnus-registry-install-shortcuts):
Use `define-keymap'.
---

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