forked from pool/emacs
15 lines
481 B
Diff
15 lines
481 B
Diff
diff --git a/lisp/mouse.el b/lisp/mouse.el
|
|
index e267418..2afe313 100644
|
|
--- a/lisp/mouse.el
|
|
+++ b/lisp/mouse.el
|
|
@@ -856,7 +856,8 @@ DO-MOUSE-DRAG-REGION-POST-PROCESS should only be used by
|
|
(copy-region-as-kill (mark) (point)))))
|
|
|
|
;; Otherwise, run binding of terminating up-event.
|
|
- (deactivate-mark)
|
|
+ (let (select-active-regions)
|
|
+ (deactivate-mark))
|
|
(if do-multi-click
|
|
(goto-char start-point)
|
|
(unless moved-off-start
|