annotate lisp/flow-ctrl.el @ 1186:24f248525608

(mail-undo-backslash-quoting): Renamed from undo-... (mail-safe-move-sexp): Renamed from safe-... (mail-variant-method): Renamed from variant-method.
author Richard M. Stallman <rms@gnu.org>
date Mon, 21 Sep 1992 14:52:30 +0000
parents 583035084779
children 94f7516ccdc1
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
793
6fb68a1460a6 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 792
diff changeset
1 ;;; flow-ctrl.el --- help for lusers on cu(1) or ttys with wired-in ^S/^Q flow control
6fb68a1460a6 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 792
diff changeset
2
844
bf829a2d63b4 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 811
diff changeset
3 ;;; Copyright (C) 1990 Free Software Foundation, Inc.
bf829a2d63b4 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 811
diff changeset
4 ;;; Copyright (C) 1991 Kevin Gallagher
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 844
diff changeset
5
793
6fb68a1460a6 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 792
diff changeset
6 ;; Author Kevin Gallagher
6fb68a1460a6 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 792
diff changeset
7 ;; Maintainer: FSF
6fb68a1460a6 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 792
diff changeset
8 ;; Adapted-By: ESR
811
e694e0879463 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 793
diff changeset
9 ;; Keywords: hardware
660
08eb386dd0f3 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 584
diff changeset
10
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 844
diff changeset
11 ;;; This file is part of GNU Emacs.
541
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12 ;;;
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 ;;; GNU Emacs is distributed in the hope that it will be useful, but
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14 ;;; WITHOUT ANY WARRANTY. No author or distributor accepts
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15 ;;; RESPONSIBILITY TO anyone for the consequences of using it or for
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16 ;;; whether it serves any particular purpose or works at all, unless
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17 ;;; he says so in writing. Refer to the GNU Emacs General Public
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 ;;; License for full details.
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19 ;;;
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20 ;;; Everyone is granted permission to copy, modify and redistribute
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
21 ;;; GNU Emacs, but only under the conditions described in the GNU
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
22 ;;; Emacs General Public License. A copy of this license is supposed
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
23 ;;; to have been given to you along with GNU Emacs so you can know
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
24 ;;; your rights and responsibilities. It should be in a file named
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
25 ;;; COPYING. Among other things, the Copyright notice and this notice
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
26 ;;; must be preserved on all copies.
793
6fb68a1460a6 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 792
diff changeset
27
6fb68a1460a6 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 792
diff changeset
28 ;;; Commentary:
541
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
29
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
30 ;;;; Terminals that use XON/XOFF flow control can cause problems with
792
45d748a65f24 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 677
diff changeset
31 ;;;; GNU Emacs users. This file contains Emacs Lisp code that makes it
541
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
32 ;;;; easy for a user to deal with this problem, when using such a
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
33 ;;;; terminal.
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
34 ;;;;
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35 ;;;; To invoke these adjustments, a user need only invoke the function
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
36 ;;;; evade-flow-control-on with a list of terminal types in his/her own
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
37 ;;;; .emacs file. As arguments, give it the names of one or more terminal
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
38 ;;;; types in use by that user which require flow control adjustments.
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
39 ;;;; Here's an example:
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
40 ;;;;
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
41 ;;;; (evade-flow-control-on "vt200" "vt300" "vt101" "vt131")
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
42
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
43 ;;; Portability note: This uses (getenv "TERM"), and therefore probably
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
44 ;;; won't work outside of UNIX-like environments.
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
45
793
6fb68a1460a6 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 792
diff changeset
46 ;;; Code:
6fb68a1460a6 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 792
diff changeset
47
541
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
48 (defun evade-flow-control ()
669
4c64c671426f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
49 "Enable use of flow control; let user type C-s as C-\ and C-q as C-^."
541
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
50 (interactive)
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
51 ;; Tell emacs to pass C-s and C-q to OS.
856
583035084779 entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 846
diff changeset
52 (set-input-mode nil t nil)
541
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
53 ;; Initialize translate table, saving previous mappings, if any.
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
54 (let ((the-table (make-string 128 0)))
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
55 (let ((i 0)
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
56 (j (length keyboard-translate-table)))
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
57 (while (< i j)
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
58 (aset the-table i (elt keyboard-translate-table i))
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
59 (setq i (1+ i)))
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
60 (while (< i 128)
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
61 (aset the-table i i)
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
62 (setq i (1+ i))))
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
63 (setq keyboard-translate-table the-table))
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
64 ;; Swap C-s and C-\
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
65 (aset keyboard-translate-table ?\034 ?\^s)
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
66 (aset keyboard-translate-table ?\^s ?\034)
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
67 ;; Swap C-q and C-^
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
68 (aset keyboard-translate-table ?\036 ?\^q)
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
69 (aset keyboard-translate-table ?\^q ?\036)
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
70 (message (concat
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
71 "XON/XOFF adjustment for "
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
72 (getenv "TERM")
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
73 ": use C-\\ for C-s and use C-^ for C-q."))
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
74 (sleep-for 2)) ; Give user a chance to see message.
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
75
669
4c64c671426f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
76 (defun evade-flow-control-memstr= (e s)
541
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
77 (cond ((null s) nil)
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
78 ((string= e (car s)) t)
669
4c64c671426f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
79 (t (evade-flow-control-memstr= e (cdr s)))))
541
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
80
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
81 ;;;###autoload
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
82 (defun evade-flow-control-on (&rest losing-terminal-types)
669
4c64c671426f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
83 "Enable flow control if using one of a specified set of terminal types.
677
7a9b4ea68565 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 669
diff changeset
84 Use `(evade-flow-control-on \"vt100\" \"h19\")' to enable flow control
669
4c64c671426f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
85 on VT-100 and H19 terminals. When flow control is enabled,
677
7a9b4ea68565 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 669
diff changeset
86 you must type C-\\ to get the effect of a C-s, and type C-^
669
4c64c671426f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
87 to get the effect of a C-q."
541
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
88 (let ((term (getenv "TERM"))
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
89 hyphend)
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
90 ;; Strip off hyphen and what follows
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
91 (while (setq hyphend (string-match "[-_][^-_]+$" term))
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
92 (setq term (substring term 0 hyphend)))
669
4c64c671426f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
93 (and (evade-flow-control-memstr= term losing-terminal-types) (evade-flow-control)))
541
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
94 )
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
95
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
96 (provide 'flow-ctrl)
1c956f448a00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
97
660
08eb386dd0f3 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 584
diff changeset
98 ;;; flow-ctrl.el ends here