# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 791087850 0
# Node ID 3092c83a8a9d8c94d4eaa1642e83ad4f693d0e7c
# Parent  b804533a125400a0d1daa879f1a967f063b0877a
(mouse-save-then-kill): Ignore mouse-selection-click-count if no active mark.

diff -r b804533a1254 -r 3092c83a8a9d lisp/mouse.el
--- a/lisp/mouse.el	Wed Jan 25 09:04:07 1995 +0000
+++ b/lisp/mouse.el	Thu Jan 26 02:37:30 1995 +0000
@@ -620,7 +620,7 @@
 	;; 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))))))