diff options
| author | Kim F. Storm <storm@cua.dk> | 2003-03-24 11:01:17 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2003-03-24 11:01:17 +0000 |
| commit | 48ce734b52d73b11de1d772889ec3edd829055c3 (patch) | |
| tree | 304e17524caf2e9656807281cc8215f9e9546db4 /lisp/emulation | |
| parent | 0a38b109dcd311c22a37b6aaeb8363e37a435300 (diff) | |
| download | emacs-48ce734b52d73b11de1d772889ec3edd829055c3.tar.gz | |
(cua-set-mark): Check pop-global-mark-quick-repeat.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/cua-base.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el index 254a6b29c75..2e623b1ea3b 100644 --- a/lisp/emulation/cua-base.el +++ b/lisp/emulation/cua-base.el @@ -889,7 +889,8 @@ 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 (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 |