diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-04-22 20:19:41 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-04-22 20:19:41 +0000 |
| commit | aa718a1fab3ab7e9b658a19179980d13a48e2cd9 (patch) | |
| tree | a76bad63573b1008cc6dfef29117e54388bb4027 /lisp | |
| parent | 09a1077ce25adc5ac367a95ede0a93e45f8f03b5 (diff) | |
| download | emacs-aa718a1fab3ab7e9b658a19179980d13a48e2cd9.tar.gz | |
(mouse-extend): Handle case where posn-window is a frame.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mouse-sel.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el index f079c62f978..861a5ed1759 100644 --- a/lisp/mouse-sel.el +++ b/lisp/mouse-sel.el @@ -310,7 +310,10 @@ This should be bound to a down-mouse event." ;; Ignore any movement outside the frame ((eq (car-safe event) 'switch-frame) nil) ((and (posn-window end) - (not (eq (window-frame (posn-window end)) + (not (eq (let ((posn-w (posn-window end))) + (if (windowp posn-w) + (window-frame posn-w) + posn-w)) (window-frame orig-window)))) nil) ;; Different window, same frame |