# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1106525975 0
# Node ID fa3ef0f9b02e9b4eb29d749ac7736837ca26b7d6
# Parent  dc40d98221252c3364dc951a9c42c58ad7cbd49b
(encoded-kbd-iso2022-single-shift):
Fix setting of the element of encoded-kbd-iso2022-invocations.

diff -r dc40d9822125 -r fa3ef0f9b02e lisp/international/encoded-kb.el
--- a/lisp/international/encoded-kb.el	Sun Jan 23 22:18:26 2005 +0000
+++ b/lisp/international/encoded-kb.el	Mon Jan 24 00:19:35 2005 +0000
@@ -126,9 +126,7 @@
 
 (defun encoded-kbd-iso2022-single-shift (ignore)
   (let ((char (encoded-kbd-last-key)))
-    (aset encoded-kbd-iso2022-invocations 2
-	  (aref encoded-kbd-iso2022-designations
-		(if (= char ?\216) 2 3))))
+    (aset encoded-kbd-iso2022-invocations 2 (if (= char ?\216) 2 3)))
   "")
 
 (defun encoded-kbd-self-insert-iso2022-7bit (ignore)