diff options
| author | Kenichi Handa <handa@m17n.org> | 2006-02-24 11:55:47 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2006-02-24 11:55:47 +0000 |
| commit | 251b4b3126e72123bbc976cbd0ac82cb7e349686 (patch) | |
| tree | 6b54bc0b0e0eb7a5db74113dba6ae6e90a976be1 /lisp/international/encoded-kb.el | |
| parent | 5432dcf9e0da4e2c38dee53fbe8423ff5f06bed6 (diff) | |
| download | emacs-251b4b3126e72123bbc976cbd0ac82cb7e349686.tar.gz | |
(encoded-kbd-mode): Check
saved-input-mode on turing off Encoded Kbd mode.
Diffstat (limited to 'lisp/international/encoded-kb.el')
| -rw-r--r-- | lisp/international/encoded-kb.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/international/encoded-kb.el b/lisp/international/encoded-kb.el index 7ec84465007..2cbb76cb08d 100644 --- a/lisp/international/encoded-kb.el +++ b/lisp/international/encoded-kb.el @@ -376,10 +376,11 @@ as a multilingual text encoded in a coding system set by coding))) ;; We are turning off Encoded-kbd mode. - (setq key-translation-map saved-key-translation-map - saved-key-translation-map nil) - (apply 'set-input-mode saved-input-mode) - (setq saved-input-mode nil))) + (when saved-input-mode + (setq key-translation-map saved-key-translation-map + saved-key-translation-map nil) + (apply 'set-input-mode saved-input-mode) + (setq saved-input-mode nil)))) (provide 'encoded-kb) |