From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 20 Jul 2024 09:33:23 +0000 (+0300)
Subject: Fix Imenu in 'emacs-news-view-mode'
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~660
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=ab7c40ea52a1db0cfc8b6605363f4e1378c9b471;p=emacs.git

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 1dd017abb01..ca897ec4567 100644
--- 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