From f767385c90ecd380ac86e29c3fc8f83c6d15bf5a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 21 Jul 1993 07:40:12 +0000 Subject: [PATCH] (mouse-drag-region): Use deactivate-mark. --- lisp/mouse.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/mouse.el b/lisp/mouse.el index 868018436fb..fc00dddbb4f 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -173,7 +173,7 @@ This must be bound to a button-down mouse event." (move-overlay mouse-drag-overlay start-point start-point (window-buffer start-window)) - (setq mark-active nil) + (deactivate-mark) (let (event end end-point) (track-mouse (while (progn @@ -221,7 +221,7 @@ This must be bound to a button-down mouse event." (numberp (posn-point (event-end event)))) (goto-char (posn-point (event-end event)))) (if (= (point) start-point) - (setq mark-active nil) + (deactivate-mark) (set-mark start-point)) (delete-overlay mouse-drag-overlay)))) -- 2.39.5