Mercurial > hg > xemacs-beta
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