[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/greader f1f2c20645 1/5: Changed the logic of greader-se
From: |
ELPA Syncer |
Subject: |
[elpa] externals/greader f1f2c20645 1/5: Changed the logic of greader-set-reading-map as suggested by Stefan |
Date: |
Sat, 3 Sep 2022 12:57:39 -0400 (EDT) |
branch: externals/greader
commit f1f2c20645f0131ed038d650fe2171d20e302e12
Author: Michelangelo Rodriguez <michelangelo.rodriguez@gmail.com>
Commit: Michelangelo Rodriguez <michelangelo.rodriguez@gmail.com>
Changed the logic of greader-set-reading-map as suggested by Stefan
Monnier.
---
greader.el | 10 ++--------
1 file changed, 2 insertions(+), 8 deletions(-)
diff --git a/greader.el b/greader.el
index 8fdb1ee855..f38fe8e5d2 100644
--- a/greader.el
+++ b/greader.el
@@ -471,17 +471,11 @@ mindfullness!)."
(defun greader-set-reading-keymap ()
"Set greader's keymap when reading."
- (if (assoc 'greader-mode minor-mode-map-alist)
- (progn
- (setq minor-mode-map-alist (assq-delete-all 'greader-mode
minor-mode-map-alist))
- (setq minor-mode-map-alist (push `(greader-mode . ,greader-reading-map)
minor-mode-map-alist)))))
+ (setq greader--reading t))
(defun greader-set-greader-keymap ()
"Set greader's keymap when not reading."
- (if (assoc 'greader-mode minor-mode-map-alist)
- (progn
- (setq minor-mode-map-alist (assq-delete-all 'greader-mode
minor-mode-map-alist))
- (setq minor-mode-map-alist (push `(greader-mode . ,greader-map)
minor-mode-map-alist)))))
+ (setq greader--reading nil))
(defun greader-stop ()
"Stops reading of document."