Fix Imenu in 'emacs-news-view-mode'

* lisp/textmodes/emacs-news-mode.el (emacs-news-view-mode): Make
it derived from emacs-news-mode.  Add useful key bindings.
(Bug#72080)

diff --git a/lisp/textmodes/emacs-news-mode.el b/lisp/textmodes/emacs-news-mode.el
index 1dd017abb017dcfaae02a2d5c7f24d1bbed32894..ca897ec456765efadca839db73f71395ca1527e4 100644 (file)
--- a/lisp/textmodes/emacs-news-mode.el
+++ b/lisp/textmodes/emacs-news-mode.el
@@ -107,12 +107,21 @@
   (emacs-news--mode-common))
 
 ;;;###autoload
-(define-derived-mode emacs-news-view-mode special-mode "NEWS"
+(define-derived-mode emacs-news-view-mode emacs-news-mode "NEWS"
   "Major mode for viewing the Emacs NEWS file."
   (setq buffer-read-only t)
   (emacs-news--buttonize)
   (button-mode)
-  (emacs-news--mode-common))
+  ;; Bind useful browsing keys.
+  (keymap-local-set "q" 'quit-window)
+  (keymap-local-set "SPC" 'scroll-up-command)
+  (keymap-local-set "S-SPC" 'scroll-down-command)
+  (keymap-local-set "DEL" 'scroll-down-command)
+  (keymap-local-set "?" 'describe-mode)
+  (keymap-local-set "h" 'describe-mode)
+  (keymap-local-set ">" 'end-of-buffer)
+  (keymap-local-set "<" 'beginning-of-buffer)
+  (keymap-local-set "g" 'revert-buffer))
 
 (defun emacs-news--fill-paragraph (&optional justify)
   (cond