[elpa] externals/ement 358b125c41 3/4: Fix: Scroll commands in mentions buffer

[ELPA Syncer]

branch: externals/ement
commit 358b125c415ab50331033ebec258282c31363d86
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Fix: Scroll commands in mentions buffer
    
    Fixes #215.
    
    Reported-by: Phil Sainty <phil@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