# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1140782147 0
# Node ID 8dfaaddb06fcb5c49e541ba2bfeca7013fa5c14e
# Parent  34c8b755296dfa80297226218bc10df83a33be4c
(encoded-kbd-mode): Check
saved-input-mode on turing off Encoded Kbd mode.

diff -r 34c8b755296d -r 8dfaaddb06fc lisp/international/encoded-kb.el
--- a/lisp/international/encoded-kb.el	Fri Feb 24 08:08:56 2006 +0000
+++ b/lisp/international/encoded-kb.el	Fri Feb 24 11:55:47 2006 +0000
@@ -376,10 +376,11 @@
 		 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)