diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-01-20 15:12:30 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-01-20 15:12:30 +0000 |
| commit | 3bf5f17a187f06908852543b43ae9037a2985294 (patch) | |
| tree | e418951ef7d85698d1e7dfed5dba1cecfd49ae94 /lisp/flow-ctrl.el | |
| parent | e6faba7f613f66d3a82465145d1d6d1bfcdf893b (diff) | |
| download | emacs-3bf5f17a187f06908852543b43ae9037a2985294.tar.gz | |
(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-^ to get the effect of a C-q." (let ((term (getenv "TERM")) hyphend) - ;; 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)))) + (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)))))) (provide 'flow-ctrl) |