diff options
| author | Lars Ingebrigtsen | 2021-01-20 17:25:40 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2021-01-20 17:25:40 +0100 |
| commit | cad2c4b14a98d24d6cba4089bd48340899dcff52 (patch) | |
| tree | df3f05467a8b01d2de69c306a416c0a5beffb168 /test | |
| parent | f30cf07ecba8f4316b268b7ad57705a0aa16d660 (diff) | |
| download | emacs-cad2c4b14a98d24d6cba4089bd48340899dcff52.tar.gz 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')
| -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 @@ | |||
| 217 | )) | 217 | )) |
| 218 | ) | 218 | ) |
| 219 | 219 | ||
| 220 | (ert-deftest test-tty-find-type () | ||
| 221 | (let ((pred (lambda (string) | ||
| 222 | (locate-library (concat "term/" string ".el"))))) | ||
| 223 | (should (tty-find-type pred "cygwin")) | ||
| 224 | (should (tty-find-type pred "cygwin-foo")) | ||
| 225 | (should (equal (tty-find-type pred "xterm") "xterm")) | ||
| 226 | (should (equal (tty-find-type pred "screen.xterm") "screen")))) | ||
| 227 | |||
| 220 | (provide 'faces-tests) | 228 | (provide 'faces-tests) |
| 221 | ;;; faces-tests.el ends here | 229 | ;;; faces-tests.el ends here |