Mercurial > emacs
changeset 45954:871fe6a1f35a
Corrected last fix.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Fri, 21 Jun 2002 13:56:13 +0000 |
| parents | 66857c2230b6 |
| children | e4997ff1b0f4 |
| files | lisp/emulation/cua-base.el |
| diffstat | 1 files changed, 7 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emulation/cua-base.el Fri Jun 21 13:51:26 2002 +0000 +++ b/lisp/emulation/cua-base.el Fri Jun 21 13:56:13 2002 +0000 @@ -656,13 +656,13 @@ (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))