Mercurial > emacs
changeset 83347:4835a94a6cc5
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
| author | Karoly Lorentey <lorentey@elte.hu> |
|---|---|
| date | Tue, 12 Jul 2005 11:09:18 +0000 |
| parents | 7372c2f9daac |
| children | afade4ccd30c |
| files | lisp/international/encoded-kb.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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)