From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 12 Oct 2021 12:27:29 +0000 (+0200)
Subject: Fix more Gnus group key bindings recently changed
X-Git-Tag: emacs-29.0.90~3671^2~596
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a1477ebb0c849a2beadca94620766a7ba5a1350a;p=emacs.git

Fix more Gnus group key bindings recently changed

* lisp/gnus/gnus-group.el (:keymap): Fix some prefix keys that
ended up in the wrong place during the keymap rewrite (bug#51136).
---

diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index 2a4c84c94b0..ddc819877c1 100644
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -683,27 +683,27 @@ simple manner."
         "z" #'gnus-group-compact-group
         "x" #'gnus-group-expunge-group
         "\177" #'gnus-group-delete-group
-        [delete] #'gnus-group-delete-group)
-
-  "S" (define-keymap :prefix 'gnus-group-sort-map
-        "s" #'gnus-group-sort-groups
-        "a" #'gnus-group-sort-groups-by-alphabet
-        "u" #'gnus-group-sort-groups-by-unread
-        "l" #'gnus-group-sort-groups-by-level
-        "v" #'gnus-group-sort-groups-by-score
-        "r" #'gnus-group-sort-groups-by-rank
-        "m" #'gnus-group-sort-groups-by-method
-        "n" #'gnus-group-sort-groups-by-real-name)
-
-  "P" (define-keymap :prefix 'gnus-group-sort-selected-map
-        "s" #'gnus-group-sort-selected-groups
-        "a" #'gnus-group-sort-selected-groups-by-alphabet
-        "u" #'gnus-group-sort-selected-groups-by-unread
-        "l" #'gnus-group-sort-selected-groups-by-level
-        "v" #'gnus-group-sort-selected-groups-by-score
-        "r" #'gnus-group-sort-selected-groups-by-rank
-        "m" #'gnus-group-sort-selected-groups-by-method
-        "n" #'gnus-group-sort-selected-groups-by-real-name)
+        [delete] #'gnus-group-delete-group
+
+        "S" (define-keymap :prefix 'gnus-group-sort-map
+              "s" #'gnus-group-sort-groups
+              "a" #'gnus-group-sort-groups-by-alphabet
+              "u" #'gnus-group-sort-groups-by-unread
+              "l" #'gnus-group-sort-groups-by-level
+              "v" #'gnus-group-sort-groups-by-score
+              "r" #'gnus-group-sort-groups-by-rank
+              "m" #'gnus-group-sort-groups-by-method
+              "n" #'gnus-group-sort-groups-by-real-name)
+
+        "P" (define-keymap :prefix 'gnus-group-sort-selected-map
+              "s" #'gnus-group-sort-selected-groups
+              "a" #'gnus-group-sort-selected-groups-by-alphabet
+              "u" #'gnus-group-sort-selected-groups-by-unread
+              "l" #'gnus-group-sort-selected-groups-by-level
+              "v" #'gnus-group-sort-selected-groups-by-score
+              "r" #'gnus-group-sort-selected-groups-by-rank
+              "m" #'gnus-group-sort-selected-groups-by-method
+              "n" #'gnus-group-sort-selected-groups-by-real-name))
 
   "A" (define-keymap :prefix 'gnus-group-list-map
         "k" #'gnus-group-list-killed