[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master faf1f03798 1/2: Improve C-x C-q in emacs-news-mode
From: |
Po Lu |
Subject: |
master faf1f03798 1/2: Improve C-x C-q in emacs-news-mode |
Date: |
Fri, 5 Aug 2022 04:12:38 -0400 (EDT) |
branch: master
commit faf1f037987ccef81b3f1a18bfc5ea4de867983e
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>
Improve C-x C-q in emacs-news-mode
* lisp/textmodes/emacs-news-mode.el (emacs-news-mode-map)
(emacs-news-view-mode-map): Make C-x C-q switch to the
appropriate mode for editing, and vice versa.
(emacs-news-mode): Disable button-mode and make buffer
read-write.
---
lisp/textmodes/emacs-news-mode.el | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/lisp/textmodes/emacs-news-mode.el
b/lisp/textmodes/emacs-news-mode.el
index af0aa2ddea..c7fa9fa2b2 100644
--- a/lisp/textmodes/emacs-news-mode.el
+++ b/lisp/textmodes/emacs-news-mode.el
@@ -56,10 +56,12 @@
"C-c C-g" #'emacs-news-goto-section
"C-c C-j" #'emacs-news-find-heading
"C-c C-e" #'emacs-news-count-untagged-entries
+ "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)
+ :parent emacs-news-common-map
+ "C-x C-q" #'emacs-news-mode)
(defvar emacs-news-mode-font-lock-keywords
`(("^---$" 0 'emacs-news-does-not-need-documentation)
@@ -78,6 +80,11 @@
;;;###autoload
(define-derived-mode emacs-news-mode text-mode "NEWS"
"Major mode for editing the Emacs NEWS file."
+ ;; Disable buttons.
+ (button-mode nil)
+ ;; And make the buffer writable. This is used when toggling
+ ;; emacs-news-mode.
+ (setq buffer-read-only nil)
(setq-local fill-paragraph-function #'emacs-news--fill-paragraph)
(emacs-news--mode-common))