;;; compiled by jimb@wookumz.gnu.ai.mit.edu on Sun Feb 14 18:21:17 1993
;;; from file /home/gd/gnu/emacs/19.0/lisp/flow-ctrl.el
;;; emacs version 19.0.496.
;;; bytecomp version FSF 2.08
;;; optimization is on.

(fset 'enable-flow-control (make-byte-code (quote nil) "ÀÁÂÁ#ˆÃÄÅ\"ÅG‰	Wƒ0 	Ê	\"Iˆ	T‰	‚ 	ÄWƒG 	‰Iˆ	T‰	‚2 *)ËÌIˆÌËIˆÍÎIˆÎÍIˆÏÐÑÒ!ÓQ!ˆÔÕ!‡" [set-input-mode nil t make-string 128 0 the-table keyboard-translate-table j i elt 28 19 30 17 message "XON/XOFF adjustment for " getenv "TERM" ":  use C-\\ for C-s  and  use C-^ for C-q." sleep-for 2] 6 "\
Enable use of flow control; let user type C-s as C- and C-q as C-^." nil))
(byte-code "ÀÁÂÃÄÅ$M‡" [enable-flow-control-memstr= make-byte-code (e s) "„ Á‡Â@\"ƒ Ä‡ÅA\"‡" [s nil string= e t enable-flow-control-memstr=] 3] 6)
(fset 'enable-flow-control-on (make-byte-code (quote (&rest losing-terminal-types)) "ÀÁ!ÂÅÆ\"‰ƒ ÇO‚ È	\"…! Ê *‡" [getenv "TERM" nil hyphend term string-match "[-_][^-_]+$" 0 enable-flow-control-memstr= losing-terminal-types enable-flow-control] 3 "\
Enable flow control if using one of a specified set of terminal types.
Use `(enable-flow-control-on \"vt100\" \"h19\")' to enable flow control
on VT-100 and H19 terminals.  When flow control is enabled,
you must type C-\\ to get the effect of a C-s, and type C-^
to get the effect of a C-q."))
(provide (quote flow-ctrl))