Skip to content

GitLab

Commit d43fe049 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(mouse-extend): Pass WINDOW arg to mouse-scroll-subr.

parent 3afe9f5e
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 3 deletions
lisp/mouse-sel.el
View file @ d43fe049
......@@ -318,16 +318,16 @@ This should be bound to a down-mouse event."
(let ((end-row (cdr (cdr (mouse-position)))))
(cond
((and end-row (not (bobp)) (< end-row top))
(mouse-scroll-subr (- end-row top)
(mouse-scroll-subr orig-window (- end-row top)
mouse-drag-overlay max))
((and end-row (not (eobp)) (>= end-row bottom))
(mouse-scroll-subr (1+ (- end-row bottom))
(mouse-scroll-subr orig-window (1+ (- end-row bottom))
mouse-drag-overlay min))
)))
;; On the mode line
((eq (posn-point end) 'mode-line)
(mouse-scroll-subr 1 mouse-drag-overlay min))
(mouse-scroll-subr orig-window 1 mouse-drag-overlay min))
;; In original window
(t (goto-char (posn-point end)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment