# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1048503677 0
# Node ID b7e98fe2a99acc3fc032c69927e1f28ce72e58d0
# Parent  701e15ed7818e1f18d2f5425e26a56a0cb754ce2
(cua-set-mark): Check pop-global-mark-quick-repeat.

diff -r 701e15ed7818 -r b7e98fe2a99a lisp/emulation/cua-base.el
--- a/lisp/emulation/cua-base.el	Mon Mar 24 11:01:00 2003 +0000
+++ b/lisp/emulation/cua-base.el	Mon Mar 24 11:01:17 2003 +0000
@@ -889,7 +889,8 @@
    ((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