/[emacs]/emacs/lisp/emulation/cua-base.el
ViewVC logotype

Diff of /emacs/lisp/emulation/cua-base.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by kfstorm, Fri May 31 12:19:57 2002 UTC revision 1.12 by kfstorm, Fri Jun 21 13:51:05 2002 UTC
# Line 653  Repeating prefix key when region is acti Line 653  Repeating prefix key when region is acti
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)

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26