Skip to content

Commit

Permalink
Fix: Scroll commands in mentions buffer
Browse files Browse the repository at this point in the history
Fixes #215.

Reported-by: Phil Sainty <phil@catalyst.net.nz>
  • Loading branch information
alphapapa committed Sep 14, 2023
1 parent 20f6982 commit 358b125
Showing 1 changed file with 7 additions and 1 deletion.
8 changes: 7 additions & 1 deletion ement-notify.el
Expand Up @@ -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

Expand Down

0 comments on commit 358b125

Please sign in to comment.