mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(cua--prefix-arg): Make register prefixes

Browse Source 
work again. Corrected error in check for C-u initiated prefix.
This commit is contained in:
Kim F. Storm 2002-06-21 13:51:05 +00:00
parent 83cfd18fc8
commit 1c62c12fbf
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/emulation/cua-base.el
View File

@ -653,17 +653,19 @@ Repeating prefix key when region is active works as a single prefix key."
(defun cua--prefix-arg (arg)
(setq cua--register
(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))
(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))
;;; Enhanced undo - restore rectangle selections
(defun cua-undo (&optional arg)