diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-01-20 17:25:40 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-01-20 17:25:40 +0100 |
| commit | cad2c4b14a98d24d6cba4089bd48340899dcff52 (patch) | |
| tree | df3f05467a8b01d2de69c306a416c0a5beffb168 /test/lisp/faces-tests.el | |
| parent | f30cf07ecba8f4316b268b7ad57705a0aa16d660 (diff) | |
| download | emacs-cad2c4b14a98d24d6cba4089bd48340899dcff52.tar.gz emacs-cad2c4b14a98d24d6cba4089bd48340899dcff52.tar.bz2 emacs-cad2c4b14a98d24d6cba4089bd48340899dcff52.zip | |
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).
Diffstat (limited to 'test/lisp/faces-tests.el')
| -rw-r--r-- | test/lisp/faces-tests.el | 8 |
1 files changed, 8 insertions, 0 deletions
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 |