emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 3f14418: Fix gnus-group-mode-map breakage from previous patch


From: Lars Ingebrigtsen
Subject: master 3f14418: Fix gnus-group-mode-map breakage from previous patch
Date: Mon, 4 Oct 2021 10:19:50 -0400 (EDT)

branch: master
commit 3f14418b1152e8455b0fcd28f496187dec9b4257
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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 7c87974..2a4c84c 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]