(encoded-kbd-iso2022-single-shift):

Fix setting of the element of encoded-kbd-iso2022-invocations.

2 files changed, 6 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 53f6d66471b..ebf953caacd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-24  Kenichi Handa  <handa@m17n.org>
+
+        * international/encoded-kb.el (encoded-kbd-iso2022-single-shift):
+        Fix setting of the element of encoded-kbd-iso2022-invocations.
+
 2005-01-24  Nick Roberts  <nickrob@snap.net.nz>
 
         * progmodes/gdb-ui.el (gdb-goto-breakpoint, gdb-frames-select)
diff --git a/lisp/international/encoded-kb.el b/lisp/international/encoded-kb.el
index cba2f0e45b9..aa6d35c340f 100644
--- a/lisp/international/encoded-kb.el
+++ b/lisp/international/encoded-kb.el
@@ -126,9 +126,7 @@ The following key sequence may cause multilingual text insertion."
 
 (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)