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 /lisp | |
| 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 'lisp')
| -rw-r--r-- | lisp/faces.el | 2 |
1 files changed, 1 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) |