(enable-flow-control-on): Do nothing if no TERM.

3bf5f17a · Richard M. Stallman · e6faba7f · 3bf5f17a
Commit 3bf5f17a authored Jan 20, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 5 deletions

lisp/flow-ctrl.el lisp/flow-ctrl.el +7 -5

No files found.
--- 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)