branch: externals/ement
commit 358b125c415ab50331033ebec258282c31363d86
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Fix: Scroll commands in mentions buffer
Fixes #215.
Reported-by: Phil Sainty <p...@catalyst.net.nz>
---
ement-notify.el | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/ement-notify.el b/ement-notify.el
index 54375d5e83..173a173a82 100644
--- a/ement-notify.el
+++ b/ement-notify.el
@@ -173,11 +173,17 @@ margins in Emacs. But it's useful, anyway."
(interactive)
(call-interactively #'ement-notifications))
+(defvar ement-notifications-mode-map)
(defun ement-notify-switch-to-mentions-buffer ()
"Switch to \"*Ement Mentions*\" buffer."
(declare (function ement-notifications--log-buffer "ement-notifications"))
(interactive)
- (switch-to-buffer (ement-notifications--log-buffer :name "*Ement
Mentions*")))
+ (switch-to-buffer (ement-notifications--log-buffer :name "*Ement Mentions*"))
+ ;; HACK: Undo remapping of scroll commands which don't apply in this buffer.
+ (let ((map (copy-keymap ement-notifications-mode-map)))
+ (define-key map [remap scroll-down-command] nil)
+ (define-key map [remap mwheel-scroll] nil)
+ (use-local-map map)))
;;;; Functions
