Commit ce92443f authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(cua-set-mark): Unconditionally repeat

pop-global-mark without C-x prefix.  Fix doc.
parent 049eb0cb
...@@ -878,8 +878,10 @@ global mark ring if last mark was set in another buffer. ...@@ -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 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\). 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 Use \\[pop-global-mark] to jump to a mark off the global mark ring
\(see `pop-global-mark'\). Repeating the command without the prefix \(see `pop-global-mark'\).
jumps to the next position off the local \(or global\) mark ring.
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." With a double \\[universal-argument] prefix argument, unconditionally set mark."
(interactive "P") (interactive "P")
...@@ -889,8 +891,7 @@ With a double \\[universal-argument] prefix argument, unconditionally set mark." ...@@ -889,8 +891,7 @@ With a double \\[universal-argument] prefix argument, unconditionally set mark."
((eq last-command 'pop-to-mark-command) ((eq last-command 'pop-to-mark-command)
(setq this-command 'pop-to-mark-command) (setq this-command 'pop-to-mark-command)
(pop-to-mark-command)) (pop-to-mark-command))
((and pop-global-mark-quick-repeat ((and (eq last-command 'pop-global-mark) (not arg))
(eq last-command 'pop-global-mark) (not arg))
(setq this-command 'pop-global-mark) (setq this-command 'pop-global-mark)
(pop-global-mark)) (pop-global-mark))
(arg (arg
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment