# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1049147319 0
# Node ID 9bf67e990ee136e57a027c46028209fcb4359f50
# Parent  39b47b31df7a7c428b40fca7388800b795487d06
(cua-set-mark): Unconditionally repeat
pop-global-mark without C-x prefix.  Fix doc.

diff -r 39b47b31df7a -r 9bf67e990ee1 lisp/emulation/cua-base.el
--- a/lisp/emulation/cua-base.el	Mon Mar 31 21:43:21 2003 +0000
+++ b/lisp/emulation/cua-base.el	Mon Mar 31 21:48:39 2003 +0000
@@ -878,8 +878,10 @@
 With argument, jump to mark, and pop a new position for mark off
 the local mark ring \(this does not affect the global mark ring\).
 Use \\[pop-global-mark] to jump to a mark off the global mark ring
-\(see `pop-global-mark'\).  Repeating the command without the prefix
-jumps to the next position off the local \(or global\) mark ring.
+\(see `pop-global-mark'\).
+
+Repeating the command without the prefix jumps to the next position
+off the local \(or global\) mark ring.
 
 With a double \\[universal-argument] prefix argument, unconditionally set mark."
   (interactive "P")
@@ -889,8 +891,7 @@
    ((eq last-command 'pop-to-mark-command)
     (setq this-command 'pop-to-mark-command)
     (pop-to-mark-command))
-   ((and pop-global-mark-quick-repeat
-	 (eq last-command 'pop-global-mark) (not arg))
+   ((and (eq last-command 'pop-global-mark) (not arg))
     (setq this-command 'pop-global-mark)
     (pop-global-mark))
    (arg