diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-12-21 17:43:20 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-12-21 17:43:20 +0000 |
| commit | 409adbc7fbb0c8e894f290a25dea20daf18c5f77 (patch) | |
| tree | 797187272c9d54cf1baf0fbf7404f29ae7807139 /lisp/flow-ctrl.el | |
| parent | 3a30dc2546dc1d79b74770082093112e64ad2438 (diff) | |
| download | emacs-409adbc7fbb0c8e894f290a25dea20daf18c5f77.tar.gz | |
(enable-flow-control-on): Try the whole TERM name
before trying to strip off words from the end.
Diffstat (limited to 'lisp/flow-ctrl.el')
| -rw-r--r-- | lisp/flow-ctrl.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/lisp/flow-ctrl.el b/lisp/flow-ctrl.el index 4bad32a0c11..deb6c11b233 100644 --- a/lisp/flow-ctrl.el +++ b/lisp/flow-ctrl.el @@ -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) |