diff options
| author | Kim F. Storm | 2002-06-21 13:56:13 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2002-06-21 13:56:13 +0000 |
| commit | 5632c006df56e3fc8667ba2f522aa80e470967ad (patch) | |
| tree | 924338da5b041cee7fa0d7ab772c477088ccfc03 | |
| parent | 2fe7c8dd918ebe611e17834b58ce2441fa7780d9 (diff) | |
| download | emacs-5632c006df56e3fc8667ba2f522aa80e470967ad.tar.gz emacs-5632c006df56e3fc8667ba2f522aa80e470967ad.zip | |
Corrected last fix.
| -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." | |||
| 656 | (integerp arg) (>= arg 0) (< arg 10) | 656 | (integerp arg) (>= arg 0) (< arg 10) |
| 657 | (let* ((prefix (aref (this-command-keys) 0)) | 657 | (let* ((prefix (aref (this-command-keys) 0)) |
| 658 | (ctrl-u-prefix (and (integerp prefix) | 658 | (ctrl-u-prefix (and (integerp prefix) |
| 659 | (= prefix ?\C-u))))) | 659 | (= prefix ?\C-u)))) |
| 660 | (cond | 660 | (cond |
| 661 | ((eq cua-enable-register-prefix 'not-ctrl-u) | 661 | ((eq cua-enable-register-prefix 'not-ctrl-u) |
| 662 | (not ctrl-u-prefix)) | 662 | (not ctrl-u-prefix)) |
| 663 | ((eq cua-enable-register-prefix 'ctrl-u-only) | 663 | ((eq cua-enable-register-prefix 'ctrl-u-only) |
| 664 | ctrl-u-prefix) | 664 | ctrl-u-prefix) |
| 665 | (t t)) | 665 | (t t))) |
| 666 | (+ arg ?0))) | 666 | (+ arg ?0))) |
| 667 | (if cua--register nil arg)) | 667 | (if cua--register nil arg)) |
| 668 | 668 | ||