From: Kenichi Handa Date: Mon, 24 Jan 2005 00:21:38 +0000 (+0000) Subject: (encoded-kbd-iso2022-single-shift): X-Git-Tag: ttn-vms-21-2-B4~2604 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e1a050dc633d258694f847c7119019ef2ea1eb69;p=emacs.git (encoded-kbd-iso2022-single-shift): Fix setting of the element of encoded-kbd-iso2022-invocations. --- 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)