diff options
| author | Kenichi Handa | 2006-02-24 11:55:47 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2006-02-24 11:55:47 +0000 |
| commit | 251b4b3126e72123bbc976cbd0ac82cb7e349686 (patch) | |
| tree | 6b54bc0b0e0eb7a5db74113dba6ae6e90a976be1 | |
| parent | 5432dcf9e0da4e2c38dee53fbe8423ff5f06bed6 (diff) | |
| download | emacs-251b4b3126e72123bbc976cbd0ac82cb7e349686.tar.gz emacs-251b4b3126e72123bbc976cbd0ac82cb7e349686.zip | |
(encoded-kbd-mode): Check
saved-input-mode on turing off Encoded Kbd mode.
| -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 | |||
| 376 | coding))) | 376 | coding))) |
| 377 | 377 | ||
| 378 | ;; We are turning off Encoded-kbd mode. | 378 | ;; We are turning off Encoded-kbd mode. |
| 379 | (setq key-translation-map saved-key-translation-map | 379 | (when saved-input-mode |
| 380 | saved-key-translation-map nil) | 380 | (setq key-translation-map saved-key-translation-map |
| 381 | (apply 'set-input-mode saved-input-mode) | 381 | saved-key-translation-map nil) |
| 382 | (setq saved-input-mode nil))) | 382 | (apply 'set-input-mode saved-input-mode) |
| 383 | (setq saved-input-mode nil)))) | ||
| 383 | 384 | ||
| 384 | (provide 'encoded-kb) | 385 | (provide 'encoded-kb) |
| 385 | 386 | ||