diff options
author | Kim F. Storm <storm@cua.dk> | 2002-06-21 13:56:13 +0000 |
---|---|---|
committer | Kim F. Storm <storm@cua.dk> | 2002-06-21 13:56:13 +0000 |
commit | e6f97f699537307c555954104e9d78fb729c0230 (patch) | |
tree | 25e8875d47c1e884697aef70480a0421c969866f /lisp/emulation | |
parent | bb3b3b545e850d7f039d1d3fa4deb90e91fe21e5 (diff) | |
download | emacs-e6f97f699537307c555954104e9d78fb729c0230.tar.gz |
Corrected last fix.
Diffstat (limited to 'lisp/emulation')
-rw-r--r-- | lisp/emulation/cua-base.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el index 2c7d3ddf0b1..c906690356d 100644 --- a/lisp/emulation/cua-base.el +++ b/lisp/emulation/cua-base.el @@ -656,13 +656,13 @@ Repeating prefix key when region is active works as a single prefix key." (integerp arg) (>= arg 0) (< arg 10) (let* ((prefix (aref (this-command-keys) 0)) (ctrl-u-prefix (and (integerp prefix) - (= prefix ?\C-u))))) - (cond - ((eq cua-enable-register-prefix 'not-ctrl-u) - (not ctrl-u-prefix)) - ((eq cua-enable-register-prefix 'ctrl-u-only) - ctrl-u-prefix) - (t t)) + (= prefix ?\C-u)))) + (cond + ((eq cua-enable-register-prefix 'not-ctrl-u) + (not ctrl-u-prefix)) + ((eq cua-enable-register-prefix 'ctrl-u-only) + ctrl-u-prefix) + (t t))) (+ arg ?0))) (if cua--register nil arg)) |