From: Kim F. Storm <storm@cua.dk>
Date: Mon, 24 Mar 2003 11:01:17 +0000 (+0000)
Subject: (cua-set-mark): Check pop-global-mark-quick-repeat.
X-Git-Tag: ttn-vms-21-2-B4~10762
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=48ce734b52d73b11de1d772889ec3edd829055c3;p=emacs.git

(cua-set-mark): Check pop-global-mark-quick-repeat.
---

diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el
index 254a6b29c75..2e623b1ea3b 100644
--- a/lisp/emulation/cua-base.el
+++ b/lisp/emulation/cua-base.el
@@ -889,7 +889,8 @@ With a double \\[universal-argument] prefix argument, unconditionally set mark."
    ((eq last-command 'pop-to-mark-command)
     (setq this-command 'pop-to-mark-command)
     (pop-to-mark-command))
-   ((and (eq last-command 'pop-global-mark) (not arg))
+   ((and pop-global-mark-quick-repeat
+	 (eq last-command 'pop-global-mark) (not arg))
     (setq this-command 'pop-global-mark)
     (pop-global-mark))
    (arg