(mouse-save-then-kill): Ignore mouse-selection-click-count if no active mark.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 81fdee47e5a2f4080fcf2d440939fb5fda10a3ff..c730f8a929f6060aa9d65c94050858080ab217a6 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -620,7 +620,7 @@ If you do this twice in the same position, the selection is killed."
        ;; Don't let a subsequent kill command append to this one:
        ;; prevent setting this-command to kill-region.
        (this-command this-command))
-    (if (> (mod mouse-selection-click-count 3) 0)
+    (if (and (mark t) (> (mod mouse-selection-click-count 3) 0))
        (if (not (and (eq last-command 'mouse-save-then-kill)
                      (equal click-posn
                             (car (cdr-safe (cdr-safe mouse-save-then-kill-posn))))))