Mercurial > emacs

comparison lisp/emulation/cua-base.el @ 45954:871fe6a1f35a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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