diff options
| author | Richard M. Stallman | 2002-04-10 15:04:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-04-10 15:04:19 +0000 |
| commit | 2d246c716210704f126c26c711d2b338d78d345d (patch) | |
| tree | 0ee44a8e2a04ded0c869d907bffef64d9238e93e | |
| parent | 1087f3e6aac217dac65ba83270a700ee310ab984 (diff) | |
| download | emacs-2d246c716210704f126c26c711d2b338d78d345d.tar.gz emacs-2d246c716210704f126c26c711d2b338d78d345d.zip | |
(mouse-drag-region-1): Display region highlight only in the selected window.
| -rw-r--r-- | lisp/mouse.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index f91707f1eea..01f4479465f 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el | |||
| @@ -739,7 +739,8 @@ If the click is in the echo area, display the `*Messages*' buffer." | |||
| 739 | (setq start-point (point)) | 739 | (setq start-point (point)) |
| 740 | (let ((range (mouse-start-end start-point start-point click-count))) | 740 | (let ((range (mouse-start-end start-point start-point click-count))) |
| 741 | (move-overlay mouse-drag-overlay (car range) (nth 1 range) | 741 | (move-overlay mouse-drag-overlay (car range) (nth 1 range) |
| 742 | (window-buffer start-window))) | 742 | (window-buffer start-window)) |
| 743 | (overlay-put mouse-drag-overlay 'window (selected-window))) | ||
| 743 | (deactivate-mark) | 744 | (deactivate-mark) |
| 744 | ;; end-of-range is used only in the single-click case. | 745 | ;; end-of-range is used only in the single-click case. |
| 745 | ;; It is the place where the drag has reached so far | 746 | ;; It is the place where the drag has reached so far |