diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-07-31 17:11:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-07-31 17:11:50 +0000 |
| commit | 762bc98be4e9da8eb58e663ff06a41c5dfbbf55f (patch) | |
| tree | 7e94e30e59021d4e40b9973bb750f61abf590106 /lisp/mouse-sel.el | |
| parent | 592a2d0a1b6506d1d638ae614a410223afe75d51 (diff) | |
| download | emacs-762bc98be4e9da8eb58e663ff06a41c5dfbbf55f.tar.gz | |
(mouse-extend): Pass WINDOW arg to mouse-scroll-subr.
Diffstat (limited to 'lisp/mouse-sel.el')
| -rw-r--r-- | lisp/mouse-sel.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el index 092e1cae6b8..881329d7167 100644 --- a/lisp/mouse-sel.el +++ b/lisp/mouse-sel.el @@ -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))) |