# HG changeset patch
# User Karoly Lorentey <lorentey@elte.hu>
# Date 1121166558 0
# Node ID 4835a94a6cc57e8057b8d3da3754ebdaa033021d
# Parent  7372c2f9daacbf4b7b2c47995ee3afd7308673ec
Fix dumb error leading to national keys not working on ttys.

* lisp/international/encoded-kb.el (encoded-kbd-setup-display): Fix
  broken condition before set-input-mode.

git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-387

diff -r 7372c2f9daac -r 4835a94a6cc5 lisp/international/encoded-kb.el
--- a/lisp/international/encoded-kb.el	Tue Jul 12 10:55:24 2005 +0000
+++ b/lisp/international/encoded-kb.el	Tue Jul 12 11:09:18 2005 +0000
@@ -276,12 +276,12 @@
 		  result)
 	      (set-keymap-parent keymap (terminal-local-value 'local-key-translation-map frame))
 	      (set-terminal-local-value 'local-key-translation-map frame keymap)
-	      (or (terminal-parameter nil 'encoded-kbd-saved-input-mode)
-		  (set-terminal-parameter nil 'encoded-kbd-saved-input-mode cim))
+	      (unless (terminal-parameter nil 'encoded-kbd-saved-input-mode)
+		(set-terminal-parameter nil 'encoded-kbd-saved-input-mode cim))
 	      (setq result (and coding (encoded-kbd-setup-keymap keymap coding)))
 	      (if result
 		  (when (and (eq result 8)
-			     (not (memq (nth 2 cim) '(t nil))))
+			     (memq (nth 2 cim) '(t nil)))
 		    (set-input-mode
 		     (nth 0 cim)
 		     (nth 1 cim)