;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Fri Jan 26 01:35:26 1996 ;;; from file /home/fsf/rms/e19/lisp/flow-ctrl.el ;;; emacs version 19.30.90.1. ;;; 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.29"))) (error "`flow-ctrl.el' was compiled for Emacs 19.29 or later")) #@69 Character that replaces C-s, when flow control handling is enabled. (defvar flow-control-c-s-replacement 28 (#$ . 476)) #@69 Character that replaces C-q, when flow control handling is enabled. (defvar flow-control-c-q-replacement 30 (#$ . 602)) (put (quote keyboard-translate-table) (quote char-table-extra-slots) 0) #@173 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. (defalias 'enable-flow-control #[(&optional argument) "\f!X A@; 8# II II 8#R\"!b!\"GWITq*) I I I I! ! !$!" [argument prefix-numeric-value 0 current-input-mode set-input-mode t nil 2 keyboard-translate-table flow-control-c-s-replacement 19 flow-control-c-q-replacement 17 make-char-table char-table-p copy-sequence the-table j i message "XON/XOFF adjustment for %s: use %s for C-s, and use %s for C-q" getenv "TERM" single-key-description sleep-for] 7 (#$ . 801) "P"]) #@287 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. (defalias 'enable-flow-control-on #[(&rest losing-terminal-types) "!(\f (\f\"\"\f O‰\n\f. *" [getenv "TERM" nil hyphend term losing-terminal-types string-match "[-_][^-_]+$" 0 enable-flow-control] 4 (#$ . 1593)]) (provide (quote flow-ctrl))