From e1a050dc633d258694f847c7119019ef2ea1eb69 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 24 Jan 2005 00:21:38 +0000 Subject: [PATCH] (encoded-kbd-iso2022-single-shift): Fix setting of the element of encoded-kbd-iso2022-invocations. --- lisp/ChangeLog | 5 +++++ lisp/international/encoded-kb.el | 4 +--- 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 + + * international/encoded-kb.el (encoded-kbd-iso2022-single-shift): + Fix setting of the element of encoded-kbd-iso2022-invocations. + 2005-01-24 Nick Roberts * 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) -- 2.39.5