Mercurial > emacs
changeset 13796:116a22176b36
(enable-flow-control-on): Try the whole TERM name
before trying to strip off words from the end.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 21 Dec 1995 17:43:20 +0000 |
| parents | 7665c2422011 |
| children | d00c8f107a39 |
| files | lisp/flow-ctrl.el |
| diffstat | 1 files changed, 9 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/flow-ctrl.el Thu Dec 21 17:40:55 1995 +0000 +++ b/lisp/flow-ctrl.el Thu Dec 21 17:43:20 1995 +0000 @@ -113,13 +113,16 @@ 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)