From a1477ebb0c849a2beadca94620766a7ba5a1350a Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 12 Oct 2021 14:27:29 +0200 Subject: [PATCH] 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). --- lisp/gnus/gnus-group.el | 42 ++++++++++++++++++++--------------------- 1 file changed, 21 insertions(+), 21 deletions(-) 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 -- 2.39.2