/[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.12 by kfstorm, Fri Jun 21 13:51:05 2002 UTC revision 1.13 by kfstorm, Fri Jun 21 13:56:13 2002 UTC
# Line 656  Repeating prefix key when region is acti Line 656  Repeating prefix key when region is acti
656               (integerp arg) (>= arg 0) (< arg 10)               (integerp arg) (>= arg 0) (< arg 10)
657               (let* ((prefix (aref (this-command-keys) 0))               (let* ((prefix (aref (this-command-keys) 0))
658                      (ctrl-u-prefix (and (integerp prefix)                      (ctrl-u-prefix (and (integerp prefix)
659                                          (= prefix ?\C-u)))))                                          (= prefix ?\C-u))))
660               (cond                 (cond
661                ((eq cua-enable-register-prefix 'not-ctrl-u)                  ((eq cua-enable-register-prefix 'not-ctrl-u)
662                 (not ctrl-u-prefix))                   (not ctrl-u-prefix))
663                ((eq cua-enable-register-prefix 'ctrl-u-only)                  ((eq cua-enable-register-prefix 'ctrl-u-only)
664                 ctrl-u-prefix)                   ctrl-u-prefix)
665                (t t))                  (t t)))
666               (+ arg ?0)))               (+ arg ?0)))
667    (if cua--register nil arg))    (if cua--register nil arg))
668    

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

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