[Emacs-diffs] Changes to emacs/lisp/emulation/cua-base.el

[Kim F. Storm]

Index: emacs/lisp/emulation/cua-base.el
diff -c emacs/lisp/emulation/cua-base.el:1.12 
emacs/lisp/emulation/cua-base.el:1.13
*** emacs/lisp/emulation/cua-base.el:1.12       Fri Jun 21 09:51:05 2002
--- emacs/lisp/emulation/cua-base.el    Fri Jun 21 09:56:13 2002
***************
*** 656,668 ****
             (integerp arg) (>= arg 0) (< arg 10)
             (let* ((prefix (aref (this-command-keys) 0))
                    (ctrl-u-prefix (and (integerp prefix)
!                                       (= prefix ?\C-u)))))
!            (cond 
!             ((eq cua-enable-register-prefix 'not-ctrl-u)
!              (not ctrl-u-prefix))
!             ((eq cua-enable-register-prefix 'ctrl-u-only)
!              ctrl-u-prefix)
!             (t t))
             (+ arg ?0)))
    (if cua--register nil arg))
  
--- 656,668 ----
             (integerp arg) (>= arg 0) (< arg 10)
             (let* ((prefix (aref (this-command-keys) 0))
                    (ctrl-u-prefix (and (integerp prefix)
!                                       (= prefix ?\C-u))))
!              (cond 
!               ((eq cua-enable-register-prefix 'not-ctrl-u)
!                (not ctrl-u-prefix))
!               ((eq cua-enable-register-prefix 'ctrl-u-only)
!                ctrl-u-prefix)
!               (t t)))
             (+ arg ?0)))
    (if cua--register nil arg))