653 |
(defun cua--prefix-arg (arg) |
(defun cua--prefix-arg (arg) |
654 |
(setq cua--register |
(setq cua--register |
655 |
(and cua-enable-register-prefix |
(and cua-enable-register-prefix |
|
(integerp (this-command-keys)) |
|
|
(cond ((eq cua-enable-register-prefix 'not-ctrl-u) |
|
|
(not (= (aref (this-command-keys) 0) ?\C-u))) |
|
|
((eq cua-enable-register-prefix 'ctrl-u-only) |
|
|
(= (aref (this-command-keys) 0) ?\C-u)) |
|
|
(t t)) |
|
656 |
(integerp arg) (>= arg 0) (< arg 10) |
(integerp arg) (>= arg 0) (< arg 10) |
657 |
|
(let* ((prefix (aref (this-command-keys) 0)) |
658 |
|
(ctrl-u-prefix (and (integerp prefix) |
659 |
|
(= prefix ?\C-u))))) |
660 |
|
(cond |
661 |
|
((eq cua-enable-register-prefix 'not-ctrl-u) |
662 |
|
(not ctrl-u-prefix)) |
663 |
|
((eq cua-enable-register-prefix 'ctrl-u-only) |
664 |
|
ctrl-u-prefix) |
665 |
|
(t t)) |
666 |
(+ arg ?0))) |
(+ arg ?0))) |
667 |
(if cua--register nil arg)) |
(if cua--register nil arg)) |
668 |
|
|
|
|
|
669 |
;;; Enhanced undo - restore rectangle selections |
;;; Enhanced undo - restore rectangle selections |
670 |
|
|
671 |
(defun cua-undo (&optional arg) |
(defun cua-undo (&optional arg) |