Commit 2d246c71 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(mouse-drag-region-1): Display region highlight only in the selected window.

parent 1087f3e6
......@@ -739,7 +739,8 @@ If the click is in the echo area, display the `*Messages*' buffer."
(setq start-point (point))
(let ((range (mouse-start-end start-point start-point click-count)))
(move-overlay mouse-drag-overlay (car range) (nth 1 range)
(window-buffer start-window)))
(window-buffer start-window))
(overlay-put mouse-drag-overlay 'window (selected-window)))
;; end-of-range is used only in the single-click case.
;; It is the place where the drag has reached so far
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment