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 | c650af82743a83fe8a303db23179d0303a7535f7 (patch) | |
| tree | f6e03f35124e960e8a381dc102389cabda7f5643 /lisp/mouse-sel.el | |
| parent | 8e60627d5d0d8dc9c57a2b6af582d0631b43b374 (diff) | |
| download | emacs-c650af82743a83fe8a303db23179d0303a7535f7.tar.gz | |
(mouse-extend): Handle case where posn-window is a frame.
Diffstat (limited to 'lisp/mouse-sel.el')
| -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 |