;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\"\304GW\203q\234I\210T\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)