Mercurial > emacs

comparison lisp/flow-ctrl.el @ 9716:dfe865222721

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(enable-flow-control): Make message depend on customization variables.
author Richard M. Stallman <rms@gnu.org>
date Wed, 26 Oct 1994 20:07:50 +0000
parents 753a50122131
children 7ee88c335076
comparison
equal deleted inserted replaced
9715:5cc36be39154 9716:dfe865222721
92 (aset keyboard-translate-table flow-control-c-q-replacement ?\^q) 92 (aset keyboard-translate-table flow-control-c-q-replacement ?\^q)
93 (aset keyboard-translate-table ?\^q flow-control-c-q-replacement) 93 (aset keyboard-translate-table ?\^q flow-control-c-q-replacement)
94 (message (concat 94 (message (concat
95 "XON/XOFF adjustment for " 95 "XON/XOFF adjustment for "
96 (getenv "TERM") 96 (getenv "TERM")
97 ": use C-\\ for C-s and use C-^ for C-q.")) 97 ": use "
98 (single-key-description flow-control-c-s-replacement)
99 " for C-s, and use "
100 (single-key-description flow-control-c-q-replacement)
101 " for C-q"))
98 (sleep-for 2))) ; Give user a chance to see message. 102 (sleep-for 2))) ; Give user a chance to see message.
99 103
100 ;;;###autoload 104 ;;;###autoload
101 (defun enable-flow-control-on (&rest losing-terminal-types) 105 (defun enable-flow-control-on (&rest losing-terminal-types)
102 "Enable flow control if using one of a specified set of terminal types. 106 "Enable flow control if using one of a specified set of terminal types.