Mercurial > hg > xemacs-beta

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
5861:c87b776ab0e1 5862:5b799fa6d75e
64 ;; load the appropriate term-type-specific Lisp file. 64 ;; load the appropriate term-type-specific Lisp file.
65 ;; we don't do this at startup here so that the user can 65 ;; we don't do this at startup here so that the user can
66 ;; override term-file-prefix. (startup.el does it after 66 ;; override term-file-prefix. (startup.el does it after
67 ;; loading the init file.) 67 ;; loading the init file.)
68 (when (and (find-coding-system 'euc-jp) 68 (when (and (find-coding-system 'euc-jp)
69 (string-match "^kterm" (getenv "TERM"))) 69 (member* (mismatch "kterm"
70 (canoncase (or (console-tty-terminal-type
71 console) ""))
72 '(nil 5))))
70 (set-console-tty-coding-system console 'euc-jp)) 73 (set-console-tty-coding-system console 'euc-jp))
71 (when init-file-loaded 74 (when init-file-loaded
72 ;; temporarily select the console so that the changes 75 ;; temporarily select the console so that the changes
73 ;; to function-key-map are made for the right console. 76 ;; to function-key-map are made for the right console.
74 (let ((foobar (selected-console))) 77 (let ((foobar (selected-console)))