Re: master d68ecda05c: Improve navigation keybindings in emacs-news-mode

[Robert Pluim]

>>>>> On Sun,  3 Jul 2022 08:40:30 -0400 (EDT), Stefan Kangas 
>>>>> <stefankangas@gmail.com> said:

    Stefan> branch: master
    Stefan> commit d68ecda05c4a634a1f0a606c73137d85bf261775
    Stefan> Author: Stefan Kangas <stefan@marxist.se>
    Stefan> Commit: Stefan Kangas <stefan@marxist.se>

    Stefan>     Improve navigation keybindings in emacs-news-mode
    
    Stefan>     * lisp/textmodes/emacs-news-mode.el (emacs-news-common-map): New
    Stefan>     defvar-keymap.  Bind navigation commands as in 'org-mode' and
    Stefan>     'outline-minor-mode'.
    Stefan>     (emacs-news-mode-map): Inherit from 'emacs-news-common-map'.
    Stefan>     (emacs-news-view-mode-map): New defvar-keymap; inherit from
    Stefan>     'emacs-news-common-map'.

Those outline-mode bindings are repeatable in outline-mode
itself. Wouldnʼt it be nice if they were in news-mode as well? (the
emacs-news-mode-map bindings I think donʼt need repeatability)

So how about:

diff --git a/lisp/textmodes/emacs-news-mode.el 
b/lisp/textmodes/emacs-news-mode.el
index c5d7b6ea50..2a7a5f1ca7 100644
--- a/lisp/textmodes/emacs-news-mode.el
+++ b/lisp/textmodes/emacs-news-mode.el
@@ -48,6 +48,26 @@ emacs-news-common-map
   "C-c C-p" #'outline-previous-visible-heading
   "C-c C-u" #'outline-up-heading)
 
+(defvar-keymap emacs-news-common-repeat-map
+  ;; Navigation like `org-mode'/`outline-minor-mode'.
+  "C-f" #'outline-forward-same-level
+  "f" #'outline-forward-same-level
+  "C-b" #'outline-backward-same-level
+  "b" #'outline-backward-same-level
+  "C-n" #'outline-next-visible-heading
+  "n" #'outline-next-visible-heading
+  "C-p" #'outline-previous-visible-heading
+  "p" #'outline-previous-visible-heading
+  "C-u" #'outline-up-heading
+  "u" #'outline-up-heading)
+
+(dolist (command '(outline-forward-same-level
+                   outline-backward-same-level
+                   outline-next-visible-heading
+                   outline-previous-visible-heading
+                   outline-up-heading))
+  (put command 'repeat-map 'emacs-news-common-repeat-map))
+
 (defvar-keymap emacs-news-mode-map
   :parent emacs-news-common-map
   "C-c C-s" #'emacs-news-next-untagged-entry

Robert
--