;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@69 Character that replaces C-s, when flow control handling is enabled.
(defvar flow-control-c-s-replacement 28 (#$ . 84))
#@69 Character that replaces C-q, when flow control handling is enabled.
(defvar flow-control-c-q-replacement 30 (#$ . 209))
(put 'keyboard-translate-table 'char-table-extra-slots 0)
#@198 Toggle flow control handling.
When handling is enabled, user can type C-s as C-\, and C-q as C-^.
With arg, enable flow control mode if arg is positive, otherwise disable.

(fn &optional ARGUMENT)
(defalias 'enable-flow-control #[256 "\211\203\f\303
!\304X\202\305 A@\2034\306\307\310\311\305 8#\210\205\230	\310I\210\312\310I\210\n\310I\210\313\310I\207\306\310\307\311\305 8#\210\204I\314\300\310\"\202t\315!\203V\316!\202t\314\300\310\"\304G

W\203q\234I\210
T\262\202]\266	\312I\210\312	I\210\n\313I\210\313\nI\210\317\320\321\322!\323	!\323\n!$\210\324\311!\207" [keyboard-translate-table flow-control-c-s-replacement flow-control-c-q-replacement prefix-numeric-value 0 current-input-mode set-input-mode t nil 2 19 17 make-char-table char-table-p copy-sequence message "XON/XOFF adjustment for %s: use %s for C-s, and use %s for C-q" getenv "TERM" single-key-description sleep-for] 8 (#$ . 394) "P"])
#@321 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.

(fn &rest LOSING-TERMINAL-TYPES)
(defalias 'enable-flow-control-on #[128 "\300\301!\302
\203'
\235\204'\303\304\"\211\262\203!
\305O\262\202\302\262\202
\205-\306 \207" [getenv "TERM" nil string-match "[-_][^-_]+$" 0 enable-flow-control] 6 (#$ . 1340)])
(provide 'flow-ctrl)