Use set-input-mode to make Latin-1 chars work.

1 files changed, 8 insertions, 0 deletions

diff --git a/lisp/term/linux.el b/lisp/term/linux.el
index 85abbe17610..5f279eb5568 100644
--- a/lisp/term/linux.el
+++ b/lisp/term/linux.el
@@ -1,3 +1,11 @@
 ;; The Linux console handles Latin-1 by default.
 
 (set-terminal-coding-system 'iso-latin-1)
+
+;; Make Latin-1 input characters work, too.
+;; Meta will continue to work, because the kernel
+;; turns that into Escape.
+
+(let ((value (current-input-mode)))
+  ;; The third arg only matters in that it is not t or nil.
+  (set-input-mode (nth 0 value) (nth 1 value) 'iso-latin-1 (nth 3 value)))