procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Corrected last fix.

Browse source
This commit is contained in:
Kim F. Storm 2002-06-21 13:56:13 +00:00
parent 2fe7c8dd91
commit 5632c006df
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/emulation/cua-base.el
View file

@ -656,13 +656,13 @@ Repeating prefix key when region is active works as a single prefix key."
(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))
(= 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))