diff options
| author | Richard M. Stallman | 1994-01-20 15:12:30 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-01-20 15:12:30 +0000 |
| commit | 3bf5f17a187f06908852543b43ae9037a2985294 (patch) | |
| tree | e418951ef7d85698d1e7dfed5dba1cecfd49ae94 /lisp/flow-ctrl.el | |
| parent | e6faba7f613f66d3a82465145d1d6d1bfcdf893b (diff) | |
| download | emacs-3bf5f17a187f06908852543b43ae9037a2985294.tar.gz emacs-3bf5f17a187f06908852543b43ae9037a2985294.zip | |
(enable-flow-control-on): Do nothing if no TERM.
Diffstat (limited to 'lisp/flow-ctrl.el')
| -rw-r--r-- | lisp/flow-ctrl.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/flow-ctrl.el b/lisp/flow-ctrl.el index ec76e29bfdf..3e271510ff5 100644 --- a/lisp/flow-ctrl.el +++ b/lisp/flow-ctrl.el | |||
| @@ -102,11 +102,13 @@ you must type C-\\ to get the effect of a C-s, and type C-^ | |||
| 102 | to get the effect of a C-q." | 102 | to get the effect of a C-q." |
| 103 | (let ((term (getenv "TERM")) | 103 | (let ((term (getenv "TERM")) |
| 104 | hyphend) | 104 | hyphend) |
| 105 | ;; Strip off hyphen and what follows | 105 | (if term |
| 106 | (while (setq hyphend (string-match "[-_][^-_]+$" term)) | 106 | (progn |
| 107 | (setq term (substring term 0 hyphend))) | 107 | ;; Strip off hyphen and what follows |
| 108 | (and (member term losing-terminal-types) | 108 | (while (setq hyphend (string-match "[-_][^-_]+$" term)) |
| 109 | (enable-flow-control)))) | 109 | (setq term (substring term 0 hyphend))) |
| 110 | (and (member term losing-terminal-types) | ||
| 111 | (enable-flow-control)))))) | ||
| 110 | 112 | ||
| 111 | (provide 'flow-ctrl) | 113 | (provide 'flow-ctrl) |
| 112 | 114 | ||