# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1024667773 0
# Node ID 871fe6a1f35a236626ce2a3a395e6f02f71e8a2a
# Parent  66857c2230b6cb969ce09dbd2915cd494a7f9964
Corrected last fix.

diff -r 66857c2230b6 -r 871fe6a1f35a lisp/emulation/cua-base.el
--- a/lisp/emulation/cua-base.el	Fri Jun 21 13:51:26 2002 +0000
+++ b/lisp/emulation/cua-base.el	Fri Jun 21 13:56:13 2002 +0000
@@ -656,13 +656,13 @@
 	     (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))