Commit 5632c006 authored by Kim F. Storm's avatar Kim F. Storm

Corrected last fix.

parent 2fe7c8dd
......@@ -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))
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment