From 3bf5f17a187f06908852543b43ae9037a2985294 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 20 Jan 1994 15:12:30 +0000 Subject: [PATCH] (enable-flow-control-on): Do nothing if no TERM. --- lisp/flow-ctrl.el | 12 +++++++----- 1 file 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) -- 2.39.5