Corrected last fix.

diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el
index 2c7d3ddf0b1cb824728a63d3614057008e706d57..c906690356ddf6099e9795182c2afdc2dba65f0c 100644 (file)
--- a/lisp/emulation/cua-base.el
+++ b/lisp/emulation/cua-base.el
@@ -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))