Lines Matching defs:control
1 ;;; flow-ctrl.el --- help for lusers on cu(1) or ttys with wired-in ^S/^Q flow control
30 ;; Terminals that use XON/XOFF flow control can cause problems with
36 ;; enable-flow-control-on with a list of terminal types in his/her own
38 ;; types in use by that user which require flow control adjustments.
41 ;; (enable-flow-control-on "vt200" "vt300" "vt101" "vt131")
48 (defvar flow-control-c-s-replacement ?\034
49 "Character that replaces C-s, when flow control handling is enabled.")
50 (defvar flow-control-c-q-replacement ?\036
51 "Character that replaces C-q, when flow control handling is enabled.")
56 (defun enable-flow-control (&optional argument)
57 "Toggle flow control handling.
59 With arg, enable flow control mode if arg is positive, otherwise disable."
67 ;; Turn flow control off, and stop exchanging chars.
71 (aset keyboard-translate-table flow-control-c-s-replacement nil)
73 (aset keyboard-translate-table flow-control-c-q-replacement nil)
75 ;; Turn flow control on.
94 (aset keyboard-translate-table flow-control-c-s-replacement ?\^s)
95 (aset keyboard-translate-table ?\^s flow-control-c-s-replacement)
97 (aset keyboard-translate-table flow-control-c-q-replacement ?\^q)
98 (aset keyboard-translate-table ?\^q flow-control-c-q-replacement)
101 (single-key-description flow-control-c-s-replacement)
102 (single-key-description flow-control-c-q-replacement))
106 (defun enable-flow-control-on (&rest losing-terminal-types)
107 "Enable flow control if using one of a specified set of terminal types.
108 Use `(enable-flow-control-on \"vt100\" \"h19\")' to enable flow control
109 on VT-100 and H19 terminals. When flow control is enabled,
123 (enable-flow-control))))