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.

diff --git a/lisp/faces.el b/lisp/faces.el
index 755de8e3fcd7659f20fbe049d77c322c162935ea..49b5928157605ce323125ec01a7cbf7f0d262d83 100644 (file)
--- 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