Mercurial > emacs

comparison lisp/flow-ctrl.el @ 5643:860d91d72063

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(enable-flow-control-on): Do nothing if no TERM.
author Richard M. Stallman <rms@gnu.org>
date Thu, 20 Jan 1994 15:12:30 +0000
parents 9b694015caec
children 3e1323443b1a
comparison
equal deleted inserted replaced
5642:665c0dc2b4bd 5643:860d91d72063
100 on VT-100 and H19 terminals. When flow control is enabled, 100 on VT-100 and H19 terminals. When flow control is enabled,
101 you must type C-\\ to get the effect of a C-s, and type C-^ 101 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
113 ;;; flow-ctrl.el ends here 115 ;;; flow-ctrl.el ends here