From: Kim F. Storm Date: Mon, 31 Mar 2003 21:48:39 +0000 (+0000) Subject: (cua-set-mark): Unconditionally repeat X-Git-Tag: ttn-vms-21-2-B4~10688 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ce92443fd01834e04ac95ed670e38d4dba2473df;p=emacs.git (cua-set-mark): Unconditionally repeat pop-global-mark without C-x prefix. Fix doc. --- diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el index 2e623b1ea3b..34f79e9cb28 100644 --- a/lisp/emulation/cua-base.el +++ b/lisp/emulation/cua-base.el @@ -878,8 +878,10 @@ global mark ring if last mark was set in another buffer. 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 @@ 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 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