From 3f14418b1152e8455b0fcd28f496187dec9b4257 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 4 Oct 2021 16:19:40 +0200 Subject: [PATCH] Fix gnus-group-mode-map breakage from previous patch * lisp/gnus/gnus-group.el (:keymap): Restore gnus-group-list-map key strokes to the correct location. --- lisp/gnus/gnus-group.el | 80 ++++++++++++++++++++--------------------- 1 file changed, 40 insertions(+), 40 deletions(-) diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 7c879741cf1..2a4c84c94b0 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -718,46 +718,46 @@ simple manner." "l" #'gnus-group-list-level "c" #'gnus-group-list-cached "?" #'gnus-group-list-dormant - "!" #'gnus-group-list-ticked) - - "/" (define-keymap :prefix 'gnus-group-list-limit-map - "k" #'gnus-group-list-limit - "z" #'gnus-group-list-limit - "s" #'gnus-group-list-limit - "u" #'gnus-group-list-limit - "A" #'gnus-group-list-limit - "m" #'gnus-group-list-limit - "M" #'gnus-group-list-limit - "l" #'gnus-group-list-limit - "c" #'gnus-group-list-limit - "?" #'gnus-group-list-limit - "!" #'gnus-group-list-limit) - - "f" (define-keymap :prefix 'gnus-group-list-flush-map - "k" #'gnus-group-list-flush - "z" #'gnus-group-list-flush - "s" #'gnus-group-list-flush - "u" #'gnus-group-list-flush - "A" #'gnus-group-list-flush - "m" #'gnus-group-list-flush - "M" #'gnus-group-list-flush - "l" #'gnus-group-list-flush - "c" #'gnus-group-list-flush - "?" #'gnus-group-list-flush - "!" #'gnus-group-list-flush) - - "p" (define-keymap :prefix 'gnus-group-list-plus-map - "k" #'gnus-group-list-plus - "z" #'gnus-group-list-plus - "s" #'gnus-group-list-plus - "u" #'gnus-group-list-plus - "A" #'gnus-group-list-plus - "m" #'gnus-group-list-plus - "M" #'gnus-group-list-plus - "l" #'gnus-group-list-plus - "c" #'gnus-group-list-plus - "?" #'gnus-group-list-plus - "!" #'gnus-group-list-plus) + "!" #'gnus-group-list-ticked + + "/" (define-keymap :prefix 'gnus-group-list-limit-map + "k" #'gnus-group-list-limit + "z" #'gnus-group-list-limit + "s" #'gnus-group-list-limit + "u" #'gnus-group-list-limit + "A" #'gnus-group-list-limit + "m" #'gnus-group-list-limit + "M" #'gnus-group-list-limit + "l" #'gnus-group-list-limit + "c" #'gnus-group-list-limit + "?" #'gnus-group-list-limit + "!" #'gnus-group-list-limit) + + "f" (define-keymap :prefix 'gnus-group-list-flush-map + "k" #'gnus-group-list-flush + "z" #'gnus-group-list-flush + "s" #'gnus-group-list-flush + "u" #'gnus-group-list-flush + "A" #'gnus-group-list-flush + "m" #'gnus-group-list-flush + "M" #'gnus-group-list-flush + "l" #'gnus-group-list-flush + "c" #'gnus-group-list-flush + "?" #'gnus-group-list-flush + "!" #'gnus-group-list-flush) + + "p" (define-keymap :prefix 'gnus-group-list-plus-map + "k" #'gnus-group-list-plus + "z" #'gnus-group-list-plus + "s" #'gnus-group-list-plus + "u" #'gnus-group-list-plus + "A" #'gnus-group-list-plus + "m" #'gnus-group-list-plus + "M" #'gnus-group-list-plus + "l" #'gnus-group-list-plus + "c" #'gnus-group-list-plus + "?" #'gnus-group-list-plus + "!" #'gnus-group-list-plus)) "W" (define-keymap :prefix 'gnus-group-score-map "f" #'gnus-score-flush-cache -- 2.39.5