;ELC   
;;; compiled by jimb@geech.gnu.ai.mit.edu on Mon Jul  5 23:04:23 1993
;;; from file /gd/gnu/emacs/19.0/lisp/flow-ctrl.el
;;; emacs version 19.15.16.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs 19"))

(defalias 'enable-flow-control #[nil "ÀÁÂÃÄ 8#ˆÅÆÇ\"Ç	G\n‰\nWƒ2 	œIˆT‰‚ ÆWƒI ‰IˆT‰‚4 *	)	ÌÍIˆ	ÍÌIˆ	ÎÏIˆ	ÏÎIˆÐÑÒÓ!ÔQ!ˆÕÃ!‡" [set-input-mode nil t 2 current-input-mode make-string 128 0 the-table keyboard-translate-table j i 28 19 30 17 message "XON/XOFF adjustment for " getenv "TERM" ":  use C-\\ for C-s  and  use C-^ for C-q." sleep-for] 6 "\
Enable use of flow control; let user type C-s as C-\\ and C-q as C-^." nil])
(defalias (quote enable-flow-control-memstr=) #[(e s) "„ Á‡\n@˜ƒ Ã‡Ä\nA\"‡" [s nil e t enable-flow-control-memstr=] 3])
(defalias 'enable-flow-control-on #[(&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))