diff options
| author | Richard M. Stallman | 1994-07-31 17:11:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-07-31 17:11:50 +0000 |
| commit | d43fe04903beb2c9705644de12f63cb9c31bcccf (patch) | |
| tree | aa1a2e2c91be2108e4721dfd017b9e40f226fdcc | |
| parent | 3afe9f5eee77d2f6863c130b2c30758857fc2c3e (diff) | |
| download | emacs-d43fe04903beb2c9705644de12f63cb9c31bcccf.tar.gz emacs-d43fe04903beb2c9705644de12f63cb9c31bcccf.zip | |
(mouse-extend): Pass WINDOW arg to mouse-scroll-subr.
| -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." | |||
| 318 | (let ((end-row (cdr (cdr (mouse-position))))) | 318 | (let ((end-row (cdr (cdr (mouse-position))))) |
| 319 | (cond | 319 | (cond |
| 320 | ((and end-row (not (bobp)) (< end-row top)) | 320 | ((and end-row (not (bobp)) (< end-row top)) |
| 321 | (mouse-scroll-subr (- end-row top) | 321 | (mouse-scroll-subr orig-window (- end-row top) |
| 322 | mouse-drag-overlay max)) | 322 | mouse-drag-overlay max)) |
| 323 | ((and end-row (not (eobp)) (>= end-row bottom)) | 323 | ((and end-row (not (eobp)) (>= end-row bottom)) |
| 324 | (mouse-scroll-subr (1+ (- end-row bottom)) | 324 | (mouse-scroll-subr orig-window (1+ (- end-row bottom)) |
| 325 | mouse-drag-overlay min)) | 325 | mouse-drag-overlay min)) |
| 326 | ))) | 326 | ))) |
| 327 | 327 | ||
| 328 | ;; On the mode line | 328 | ;; On the mode line |
| 329 | ((eq (posn-point end) 'mode-line) | 329 | ((eq (posn-point end) 'mode-line) |
| 330 | (mouse-scroll-subr 1 mouse-drag-overlay min)) | 330 | (mouse-scroll-subr orig-window 1 mouse-drag-overlay min)) |
| 331 | 331 | ||
| 332 | ;; In original window | 332 | ;; In original window |
| 333 | (t (goto-char (posn-point end))) | 333 | (t (goto-char (posn-point end))) |