summaryrefslogtreecommitdiff
path: root/lisp/international/encoded-kb.el
diff options
context:
space:
mode:
authorKenichi Handa <handa@m17n.org>2005-01-24 00:21:38 +0000
committerKenichi Handa <handa@m17n.org>2005-01-24 00:21:38 +0000
commite1a050dc633d258694f847c7119019ef2ea1eb69 (patch)
tree047a30b3bd24b9c17c0f29ca8356ef5e80d0b5f0 /lisp/international/encoded-kb.el
parente01732fa581edf49fa1d7f48dac9708dfcf6f602 (diff)
downloademacs-e1a050dc633d258694f847c7119019ef2ea1eb69.tar.gz
(encoded-kbd-iso2022-single-shift):
Fix setting of the element of encoded-kbd-iso2022-invocations.
Diffstat (limited to 'lisp/international/encoded-kb.el')
-rw-r--r--lisp/international/encoded-kb.el4
1 files changed, 1 insertions, 3 deletions
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)