(encoded-kbd-mode): Check

saved-input-mode on turing off Encoded Kbd mode.

(encoded-kbd-mode): Check
saved-input-mode on turing off Encoded Kbd mode.
251b4b31 · Kenichi Handa · 5432dcf9 · 251b4b31
Commit 251b4b31 authored Feb 24, 2006 by Kenichi Handa
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 4 deletions

lisp/international/encoded-kb.el lisp/international/encoded-kb.el +5 -4

No files found.
--- 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)