From 06940bd0817e7c06a90cdcd02b7cf0b92ed93f89 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 28 Mar 2014 00:16:42 -0700 Subject: [PATCH] Tweak earlier tty-run-terminal-initialization change * lisp/faces.el (tty-run-terminal-initialization): Use tty-find-type so that aliases are matched with the hyphen and underscore stripping behavior. --- lisp/faces.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/faces.el b/lisp/faces.el index 755de8e3fcd..49b59281576 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -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 -- 2.39.2