master 79f2494680 14/14: Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs

[Eli Zaretskii]

branch: master
commit 79f2494680998f80264d389903ccbca08a179ad5
Merge: bf7fc3efbf 6831008a27
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs
    
    Merge from emacs-28.
---
 lisp/button.el                    |  4 ++--
 lisp/help.el                      |  7 +++----
 lisp/ldefs-boot.el                |  9 ++++++++-
 lisp/textmodes/emacs-news-mode.el | 22 +++++++++++++++-------
 4 files changed, 28 insertions(+), 14 deletions(-)

diff --git a/lisp/button.el b/lisp/button.el
index 244201be2d..80b73033d6 100644
--- a/lisp/button.el
+++ b/lisp/button.el
@@ -56,10 +56,10 @@
   :group 'basic-faces)
 
 (defvar-keymap button-buffer-map
-  :doc  "Keymap useful for buffers containing buttons.
+  :doc "Keymap useful for buffers containing buttons.
 Mode-specific keymaps may want to use this as their parent keymap."
   "TAB" #'forward-button
-  "C-TAB" #'backward-button
+  "ESC TAB" #'backward-button
   "<backtab>" #'backward-button)
 
 (defvar-keymap button-map
diff --git a/lisp/help.el b/lisp/help.el
index e326ea5d00..9cde65f797 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -453,10 +453,9 @@ With argument, display info only for the selected version."
                ((< vn 18) "NEWS.1-17")
                (t (format "NEWS.%d" vn))))
         res)
-    (find-file (expand-file-name file data-directory))
-    (setq buffer-read-only t)
-    (emacs-news-mode)
-    (widen)
+    (let ((inhibit-local-variables-regexps '(".*")))
+      (find-file (expand-file-name file data-directory))
+      (emacs-news-view-mode))
     (goto-char (point-min))
     (when (stringp version)
       (when (re-search-forward
diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el
index e03535483a..77f6b980ac 100644
--- a/lisp/ldefs-boot.el
+++ b/lisp/ldefs-boot.el
@@ -10416,7 +10416,12 @@ some major modes from being locked under some 
circumstances.
 ;;; Generated autoloads from textmodes/emacs-news-mode.el
 
 (autoload 'emacs-news-mode "emacs-news-mode" "\
-Major mode for editing and viewind the Emacs NEWS file.
+Major mode for editing the Emacs NEWS file.
+
+\(fn)" t nil)
+
+(autoload 'emacs-news-view-mode "emacs-news-mode" "\
+Major mode for viewing the Emacs NEWS file.
 
 \(fn)" t nil)
 
@@ -27016,6 +27021,8 @@ is non-nil, the command will not ask the user for 
confirmation.
 NO-CONFIRM is always nil when the command is invoked
 interactively.
 
+Also see the `project-kill-buffers-display-buffer-list' variable.
+
 \(fn &optional NO-CONFIRM)" t nil)
 
 (autoload 'project-remember-project "project" "\
diff --git a/lisp/textmodes/emacs-news-mode.el 
b/lisp/textmodes/emacs-news-mode.el
index a766352917..e31a7105b8 100644
--- a/lisp/textmodes/emacs-news-mode.el
+++ b/lisp/textmodes/emacs-news-mode.el
@@ -50,18 +50,26 @@
   `(("^---$" 0 'emacs-news-does-not-need-documentation)
     ("^\\+\\+\\+$" 0 'emacs-news-is-documented)))
 
-;;;###autoload
-(define-derived-mode emacs-news-mode text-mode "NEWS"
-  "Major mode for editing and viewind the Emacs NEWS file."
+(defun emacs-news--mode-common ()
   (setq-local font-lock-defaults '(emacs-news-mode-font-lock-keywords t))
   (setq-local outline-regexp "^\\*+ "
               outline-minor-mode-cycle t
               outline-minor-mode-highlight 'append)
+  (outline-minor-mode))
+
+;;;###autoload
+(define-derived-mode emacs-news-mode text-mode "NEWS"
+  "Major mode for editing the Emacs NEWS file."
   (setq-local fill-paragraph-function #'emacs-news--fill-paragraph)
-  (outline-minor-mode 1)
-  (when buffer-read-only
-    (emacs-news--buttonize)
-    (button-mode)))
+  (emacs-news--mode-common))
+
+;;;###autoload
+(define-derived-mode emacs-news-view-mode special-mode "NEWS"
+  "Major mode for viewing the Emacs NEWS file."
+  (setq buffer-read-only t)
+  (emacs-news--buttonize)
+  (button-mode)
+  (emacs-news--mode-common))
 
 (defun emacs-news--fill-paragraph (&optional justify)
   (cond