Tweak tty-find-type to allow TERM=screen.xterm

* lisp/faces.el (tty-find-type): Allow TERM=screen.xterm to find
term/screen.el (bug#45824).

2 files changed, 9 insertions, 1 deletions

diff --git a/lisp/faces.el b/lisp/faces.el
index 4e98338432f..d654b1f0e2a 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -2199,7 +2199,7 @@ the above example."
                 (not (funcall pred type)))
       ;; Strip off last hyphen and what follows, then try again
       (setq type
-            (if (setq hyphend (string-match-p "[-_][^-_]+$" type))
+            (if (setq hyphend (string-match-p "[-_.][^-_.]+$" type))
                 (substring type 0 hyphend)
               nil))))
   type)
diff --git a/test/lisp/faces-tests.el b/test/lisp/faces-tests.el
index 6e77259fe1b..c0db9c9de17 100644
--- a/test/lisp/faces-tests.el
+++ b/test/lisp/faces-tests.el
@@ -217,5 +217,13 @@
         ))
   )
 
+(ert-deftest test-tty-find-type ()
+  (let ((pred (lambda (string)
+                (locate-library (concat "term/" string ".el")))))
+    (should (tty-find-type pred "cygwin"))
+    (should (tty-find-type pred "cygwin-foo"))
+    (should (equal (tty-find-type pred "xterm") "xterm"))
+    (should (equal (tty-find-type pred "screen.xterm") "screen"))))
+
 (provide 'faces-tests)
 ;;; faces-tests.el ends here