656 |
(integerp arg) (>= arg 0) (< arg 10) |
(integerp arg) (>= arg 0) (< arg 10) |
657 |
(let* ((prefix (aref (this-command-keys) 0)) |
(let* ((prefix (aref (this-command-keys) 0)) |
658 |
(ctrl-u-prefix (and (integerp prefix) |
(ctrl-u-prefix (and (integerp prefix) |
659 |
(= prefix ?\C-u))))) |
(= prefix ?\C-u)))) |
660 |
(cond |
(cond |
661 |
((eq cua-enable-register-prefix 'not-ctrl-u) |
((eq cua-enable-register-prefix 'not-ctrl-u) |
662 |
(not ctrl-u-prefix)) |
(not ctrl-u-prefix)) |
663 |
((eq cua-enable-register-prefix 'ctrl-u-only) |
((eq cua-enable-register-prefix 'ctrl-u-only) |
664 |
ctrl-u-prefix) |
ctrl-u-prefix) |
665 |
(t t)) |
(t t))) |
666 |
(+ arg ?0))) |
(+ arg ?0))) |
667 |
(if cua--register nil arg)) |
(if cua--register nil arg)) |
668 |
|
|