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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 53f6d66471bd8be2c088e08f959c44215af42b3d..ebf953caacd5eeb5d99d4653adf9f456eaca9007 100644 (file)
--- 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 cba2f0e45b994840c0509de8a710e40853183f81..aa6d35c340f1e454e3df3ccf953078cd660d8096 100644 (file)
--- 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)