1#@!#!123s

file_get_contents 1#@!#!123s
: / usr / share / emacs / 24.3 / lisp /
Filename : flow-ctrl.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:18 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/flow-ctrl.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@69 Character that replaces C-s, when flow control handling is enabled.
(defvar flow-control-c-s-replacement 28 (#$ . 552))
#@69 Character that replaces C-q, when flow control handling is enabled.
(defvar flow-control-c-q-replacement 30 (#$ . 678))
(put 'keyboard-translate-table '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) "\203\f�\306!\307X\202�\310 A@\2034�\311\312\313\314\310 8#\210	\205\241�	\n\313I\210	\315\313I\210	\313I\210	\316\313I\207\311\313\312\314\310 8#\210	\204I�\317\301\313\"\202}�\320	!\203V�\321	!\202}�\317\301\313\"\307	G\211
W\203y�\f	\234I\210T\211\202b�*\f)	\n\315I\210	\315\nI\210	\316I\210	\316I\210\322\323\324\325!\326\n!\326!$\210\327\314!\207" [argument keyboard-translate-table flow-control-c-s-replacement flow-control-c-q-replacement the-table j 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 i] 7 (#$ . 863) "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) "\303\304!\305\211\203(�	\n\235\204(�\306\307	\"\211\203\"�	\310O\211\202�\305\211\204\n�	\205.�\311 *\207" [hyphend term losing-terminal-types getenv "TERM" nil string-match "[-_][^-_]+$" 0 enable-flow-control] 4 (#$ . 1832)])
(provide 'flow-ctrl)