branch: elpa/mastodon
commit 66f2c30de2626aa7e117ee1bf4bea26b2ec8b6ff
Author: marty hiatt <[email protected]>
Commit: marty hiatt <[email protected]>
masto-image-mode pixel-scroll
working pixel-scroll disable in masto-image.
---
lisp/mastodon-tl.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 59fef485d24..73aba24877f 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1488,8 +1488,11 @@ SENSITIVE is a flag from the item's JSON data."
(define-derived-mode mastodon-image-mode image-mode
"mastodon-image"
:group 'mastodon
- (if pixel-scroll-precision-mode
- (pixel-scroll-precision-mode -1)))
+ ;; Disable `pixel-scroll-precision-mode' locally because it doesn't
+ ;; work nicely with `mastodon-image-mode':
+ ;; thanks Tusar for this fix:
+ (when (bound-and-true-p pixel-scroll-precision-mode)
+ (setq-local pixel-scroll-precision-mode nil)))
;; patch `shr-browse-image' to accept url arg:
(defun mastodon-tl-shr-browse-image (&optional image-url copy-url)
