Mercurial > emacs
changeset 50382:9bf67e990ee1
(cua-set-mark): Unconditionally repeat
pop-global-mark without C-x prefix. Fix doc.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Mon, 31 Mar 2003 21:48:39 +0000 |
| parents | 39b47b31df7a |
| children | 2018e9013e52 |
| files | lisp/emulation/cua-base.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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