mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(enable-flow-control-on): Try the whole TERM name

Browse Source 
before trying to strip off words from the end.
This commit is contained in:
Karl Heuer 1995-12-21 17:43:20 +00:00
parent 3a30dc2546
commit 409adbc7fb
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/flow-ctrl.el
View File

@ -113,13 +113,16 @@ you must type C-\\ to get the effect of a C-s, and type C-^
to get the effect of a C-q."
(let ((term (getenv "TERM"))
hyphend)
;; Look for TERM in LOSING-TERMINAL-TYPES.
;; If we don't find it literally, try stripping off words
;; from the end, one by one.
(while (and term (not (member term losing-terminal-types)))
;; Strip off last hyphen and what follows, then try again.
(if (setq hyphend (string-match "[-_][^-_]+$" term))
(setq term (substring term 0 hyphend))
(setq term nil)))
(if term
(progn
;; Strip off hyphen and what follows
(while (setq hyphend (string-match "[-_][^-_]+$" term))
(setq term (substring term 0 hyphend)))
(and (member term losing-terminal-types)
(enable-flow-control))))))
(enable-flow-control))))
(provide 'flow-ctrl)