[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/greader c7ae8cc41f: Better handling of keymaps implemen
From: |
ELPA Syncer |
Subject: |
[elpa] externals/greader c7ae8cc41f: Better handling of keymaps implementing a standard minor mode for reading. |
Date: |
Tue, 21 Feb 2023 23:57:55 -0500 (EST) |
branch: externals/greader
commit c7ae8cc41fd5d086f6f0c5e0d6aff227e682fdbe
Author: Michelangelo Rodriguez <michelangelo.rodriguez@gmail.com>
Commit: Michelangelo Rodriguez <michelangelo.rodriguez@gmail.com>
Better handling of keymaps implementing a standard minor mode for reading.
---
greader.el | 16 +++++++++++-----
1 file changed, 11 insertions(+), 5 deletions(-)
diff --git a/greader.el b/greader.el
index 663cd2f7cd..c89c7ec21d 100644
--- a/greader.el
+++ b/greader.el
@@ -188,11 +188,14 @@ if set to t, when you call function `greader-read', that
function sets a
(defun greader-set-reading-keymap ()
"Set greader's keymap when reading."
- (setq greader--reading t))
+ (greader-mode -1)
+ (greader-reading-mode t))
(defun greader-set-greader-keymap ()
"Set greader's keymap when not reading."
- (setq greader--reading nil))
+
+ (greader-mode t)
+ (greader-reading-mode -1))
(define-obsolete-variable-alias 'greader-map 'greader-mode-map "2022")
(defvar greader-mode-map
@@ -223,13 +226,16 @@ if set to t, when you call function `greader-read', that
function sets a
nil
:lighter " greader"
:group 'greader
-
(cond
(greader-mode
- (add-to-list 'minor-mode-map-alist
- `(greader--reading . ,greader-reading-map))
(greader-load-backends))))
+(define-minor-mode greader-reading-mode
+ nil
+ :interactive nil
+ :keymap greader-reading-map
+ :lighter "reading...")
+
(defun greader-set-register ()
"Set the `?G' register to the point in current buffer."
(when greader-use-prefix
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/greader c7ae8cc41f: Better handling of keymaps implementing a standard minor mode for reading.,
ELPA Syncer <=