Commit 9c50f912 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

*** empty log message ***

parent 75d0ce1b
......@@ -62,8 +62,8 @@
(defun diff (old new)
"Find and display the differences between OLD and NEW files.
Interactively you are prompted with the current buffer's file name for NEW
and what appears to be it's backup for OLD."
Interactively the current buffer's file name is the default for for NEW
and a backup file for NEW is the default for OLD."
(let (oldf newf)
......@@ -37,8 +37,7 @@
;;; won't work outside of UNIX-like environments.
(defun evade-flow-control ()
"Replace C-s with C-\ and C-q with C-^ and tell emacs to pass C-s
and C-q characters to OS."
"Enable use of flow control; let user type C-s as C-\ and C-q as C-^."
;; Tell emacs to pass C-s and C-q to OS.
(set-input-mode nil t)
......@@ -65,19 +64,24 @@ and C-q characters to OS."
": use C-\\ for C-s and use C-^ for C-q."))
(sleep-for 2)) ; Give user a chance to see message.
(defun memstr= (e s)
(defun evade-flow-control-memstr= (e s)
(cond ((null s) nil)
((string= e (car s)) t)
(t (memstr= e (cdr s)))))
(t (evade-flow-control-memstr= e (cdr s)))))
(defun evade-flow-control-on (&rest losing-terminal-types)
"Enable flow control if using one of a specified set of terminal types.
Use `(evade-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."
(let ((term (getenv "TERM"))
;; Strip off hyphen and what follows
(while (setq hyphend (string-match "[-_][^-_]+$" term))
(setq term (substring term 0 hyphend)))
(and (memstr= term losing-terminal-types) (evade-flow-control)))
(and (evade-flow-control-memstr= term losing-terminal-types) (evade-flow-control)))
(provide 'flow-ctrl)
;;; ??? We must get papers for this or delete it.
;;; mailabbrev.el --- abbrev-expansion of mail aliases.
;;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment