# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1018306411 0
# Node ID 7798da9043661467ab674cb7963a88ae1b4ce555
# Parent  5138658d1fea0e8656504f84ecf945b6158bb53c
Fix up indentation.

diff -r 5138658d1fea -r 7798da904366 lisp/international/encoded-kb.el
--- a/lisp/international/encoded-kb.el	Mon Apr 08 22:52:08 2002 +0000
+++ b/lisp/international/encoded-kb.el	Mon Apr 08 22:53:31 2002 +0000
@@ -196,14 +196,14 @@
    ((= last-command-char ?\217)		; SS3 (Single Shift 3)
     (aset encoded-kbd-iso2022-invocations 2 3))
    (t
-  (let* ((charset (aref encoded-kbd-iso2022-designations
-			(or (aref encoded-kbd-iso2022-invocations 2)
-			    (aref encoded-kbd-iso2022-invocations 1))))
-	 (char (if (= (charset-dimension charset) 1)
-		   (make-char charset last-command-char)
+    (let* ((charset (aref encoded-kbd-iso2022-designations
+			  (or (aref encoded-kbd-iso2022-invocations 2)
+			      (aref encoded-kbd-iso2022-invocations 1))))
+	   (char (if (= (charset-dimension charset) 1)
+		     (make-char charset last-command-char)
 		   (make-char charset last-command-char
 			      (read-char-exclusive)))))
-    (aset encoded-kbd-iso2022-invocations 2 nil)
+      (aset encoded-kbd-iso2022-invocations 2 nil)
       (setq unread-command-events (cons char unread-command-events))))))
 
 (defun encoded-kbd-self-insert-sjis ()