diff options
author | Kenichi Handa <[email protected]> | 2004-08-04 13:03:26 +0000 |
---|---|---|
committer | Kenichi Handa <[email protected]> | 2004-08-04 13:03:26 +0000 |
commit | af1781acbf8fe9e866ee36313d137a7ffb78383b (patch) | |
tree | ed8017ea0fc1103a9bc462bbcb4c1b0999508f75 /lisp | |
parent | 5dda46a34271234a885795bd3ec12ce6b9f908e5 (diff) |
(encoded-kbd-setup-keymap): Fix previous change.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ChangeLog | 24 | ||||
-rw-r--r-- | lisp/international/encoded-kb.el | 4 |
2 files changed, 26 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b5134b2647..e12449df8e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,27 @@ +2004-08-04 Kenichi Handa <[email protected]> + + * international/encoded-kb.el (encoded-kbd-setup-keymap): Fix + previous change. + +2004-08-03 Kenichi Handa <[email protected]> + + * international/encoded-kb.el: The following changes are to + utilize key-translation-map instead of minor mode map. + (encoded-kbd-iso2022-non-ascii-map): Delete it. + (encoded-kbd-coding, encoded-kbd-handle-8bit): Delete them. + (encoded-kbd-last-key): New function. + (encoded-kbd-iso2022-single-shift): New function. + (encoded-kbd-iso2022-designation) + (encoded-kbd-self-insert-iso2022-7bit) + (encoded-kbd-self-insert-iso2022-8bit) + (encoded-kbd-self-insert-sjis, encoded-kbd-self-insert-big5) + (encoded-kbd-self-insert-ccl): Make them suitable for bindings in + key-translation-map. + (encoded-kbd-setup-keymap): Setup key-translation-map. + (saved-key-translation-map): New variable. + (encoded-kbd-mode): Save/restore key-translation-map. Adjusted + for the change of encoded-kbd-setup-keymap. + 2004-08-02 Kim F. Storm <[email protected]> * avoid.el (mouse-avoidance-point-position): Use window-inside-edges diff --git a/lisp/international/encoded-kb.el b/lisp/international/encoded-kb.el index 962f741c81..cba2f0e45b 100644 --- a/lisp/international/encoded-kb.el +++ b/lisp/international/encoded-kb.el @@ -181,7 +181,7 @@ The following key sequence may cause multilingual text insertion." ((eq (coding-system-type coding) 1) ; SJIS (let ((i 128)) (while (< i 256) - (define-key encoded-kbd-mode-map + (define-key key-translation-map (vector i) 'encoded-kbd-self-insert-sjis) (setq i (1+ i)))) 8) @@ -189,7 +189,7 @@ The following key sequence may cause multilingual text insertion." ((eq (coding-system-type coding) 3) ; Big5 (let ((i 161)) (while (< i 255) - (define-key encoded-kbd-mode-map + (define-key key-translation-map (vector i) 'encoded-kbd-self-insert-big5) (setq i (1+ i)))) 8) |