diff lisp/tty-init.el @ 5862:5b799fa6d75e

Behave better with nil TERM for gnuclient, remove bitrotted TTY init code lisp/ChangeLog addition: 2015-03-15 Aidan Kehoe <kehoea@parhasard.net> * tty-init.el (make-frame-after-init-entry-point): Behave better when TERM was not set; use #'console-tty-terminal-type instead of (getenv "TERM") so we get the value that reflects the current console. Thank you Uwe Brauer! * mule/mule-tty-init.el (mule-tty-win-initted): Removed. * mule/mule-tty-init.el (init-mule-tty-win): Removed. * mule/mule-tty-init.el: Remove this file in its entirety. * mule/mule-x-init.el (x-use-halfwidth-roman-font): Removed. * mule/mule-x-init.el: Remove this file in its entirety. * dumped-lisp.el (preloaded-file-list): Remove them from the dumped file list. The functions within haven't been used since they were imported from Mule in 1999, and the functionality of init-mule-tty-win was already in tty-init.el. If someone wants to automatically use a halfwidth roman font, they can go hunting for the code, but there are no users on http://searchco.de/ as of 20150315. Leaving them around is confusing and distracting.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 15 Mar 2015 21:13:23 +0000
parents 308d34e9f07d
children da732079c58d
line wrap: on
line diff
--- a/lisp/tty-init.el	Sat Mar 14 01:40:49 2015 +0000
+++ b/lisp/tty-init.el	Sun Mar 15 21:13:23 2015 +0000
@@ -66,7 +66,10 @@
   ;; override term-file-prefix. (startup.el does it after
   ;; loading the init file.)
   (when (and (find-coding-system 'euc-jp)
-             (string-match "^kterm" (getenv "TERM")))
+             (member* (mismatch "kterm"
+                                (canoncase (or (console-tty-terminal-type
+                                                console) ""))
+                                '(nil 5))))
     (set-console-tty-coding-system console 'euc-jp))
   (when init-file-loaded
     ;; temporarily select the console so that the changes