Mercurial > emacs
comparison lisp/emulation/cua-base.el @ 45954:871fe6a1f35a
Corrected last fix.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Fri, 21 Jun 2002 13:56:13 +0000 |
parents | ec1df96b1c23 |
children | 6a7ae10d9c96 |
comparison
equal
deleted
inserted
replaced
45953:66857c2230b6 | 45954:871fe6a1f35a |
---|---|
654 (setq cua--register | 654 (setq cua--register |
655 (and cua-enable-register-prefix | 655 (and cua-enable-register-prefix |
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 |
669 ;;; Enhanced undo - restore rectangle selections | 669 ;;; Enhanced undo - restore rectangle selections |
670 | 670 |