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 | d43fe04903beb2c9705644de12f63cb9c31bcccf (patch) | |
| tree | aa1a2e2c91be2108e4721dfd017b9e40f226fdcc /lisp/mouse-sel.el | |
| parent | 3afe9f5eee77d2f6863c130b2c30758857fc2c3e (diff) | |
| download | emacs-d43fe04903beb2c9705644de12f63cb9c31bcccf.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))) |