martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman
1994-07-31 17:11:50 +00:00
parent 3afe9f5eee
commit d43fe04903
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/mouse-sel.el
View File

@@ -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)))