procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Tweak earlier tty-run-terminal-initialization change

Browse source 
* lisp/faces.el (tty-run-terminal-initialization):
Use tty-find-type so that aliases are matched with the
hyphen and underscore stripping behavior.
This commit is contained in:
Glenn Morris 2014-03-28 00:16:42 -07:00
parent 6638d67cd2
commit 06940bd081
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/faces.el
View file

@ -2142,8 +2142,9 @@ this runs the hook `tty-setup-hook'.
If you set `term-file-prefix' to nil, this function does nothing."
(setq type (or type (tty-type frame)))
(let ((alias (assoc type term-file-aliases)))
(if alias (setq type (cdr alias))))
(let ((alias (tty-find-type
(lambda (typ) (assoc typ term-file-aliases)) type)))
(if alias (setq type (cdr (assoc alias term-file-aliases)))))
;; Load library for our terminal type.
;; User init file can set term-file-prefix to nil to prevent this.
(with-selected-frame frame