[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master f99219a533 2/2: Fix emacs-news-view-mode-map inheritance
From: |
Lars Ingebrigtsen |
Subject: |
master f99219a533 2/2: Fix emacs-news-view-mode-map inheritance |
Date: |
Fri, 12 Aug 2022 11:45:06 -0400 (EDT) |
branch: master
commit f99219a533203a46b2395d6b6021763b1542afd6
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Fix emacs-news-view-mode-map inheritance
* lisp/textmodes/emacs-news-mode.el (emacs-news-view-mode-map):
Fix inheritance from `special-mode-map' (bug#57100).
---
lisp/textmodes/emacs-news-mode.el | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/lisp/textmodes/emacs-news-mode.el
b/lisp/textmodes/emacs-news-mode.el
index e6e1f03728..9afa7ead98 100644
--- a/lisp/textmodes/emacs-news-mode.el
+++ b/lisp/textmodes/emacs-news-mode.el
@@ -59,9 +59,12 @@
"C-x C-q" #'emacs-news-view-mode
"<remap> <open-line>" #'emacs-news-open-line)
-(defvar-keymap emacs-news-view-mode-map
- :parent emacs-news-common-map
- "C-x C-q" #'emacs-news-mode)
+(defvar emacs-news-view-mode-map
+ ;; This is defined this way instead of inheriting because we're
+ ;; deriving the mode from `special-mode' and want the keys from there.
+ (let ((map (copy-keymap emacs-news-common-map)))
+ (keymap-set map "C-x C-q" #'emacs-news-mode)
+ map))
(defvar emacs-news-mode-font-lock-keywords
`(("^---$" 0 'emacs-news-does-not-need-documentation)