# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 759078750 0
# Node ID 860d91d720635896bda23b33e2d6dbed15331463
# Parent  665c0dc2b4bd21f673c09719ca5d014e2873268b
(enable-flow-control-on): Do nothing if no TERM.

diff -r 665c0dc2b4bd -r 860d91d72063 lisp/flow-ctrl.el
--- a/lisp/flow-ctrl.el	Thu Jan 20 14:41:49 1994 +0000
+++ b/lisp/flow-ctrl.el	Thu Jan 20 15:12:30 1994 +0000
@@ -102,11 +102,13 @@
 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)