branch: elpa/scroll-on-drag
commit 9a13f01e8a1e5bca76e3b8a5cd3755632b7d071a
Author: Campbell Barton <[email protected]>
Commit: Campbell Barton <[email protected]>
Fix: incorrect argument passed to posn-window when event is nil
---
scroll-on-drag.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/scroll-on-drag.el b/scroll-on-drag.el
index b3e830415fd..8024897815a 100644
--- a/scroll-on-drag.el
+++ b/scroll-on-drag.el
@@ -564,8 +564,8 @@ when `scroll-on-drag-follow-mouse' is non-nil."
(interactive "e")
(let ((scroll-win nil))
(when scroll-on-drag-follow-mouse
- (setq scroll-win (posn-window (or (event-start event)
last-input-event))))
-
+ (when-let* ((event-any (or event last-input-event)))
+ (setq scroll-win (posn-window (event-start event-any)))))
(scroll-on-drag--impl-with-window scroll-win)))
