From 9c50f912085d060637d239a9417e70513a89b736 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Mon, 1 Jun 1992 08:28:58 +0000
Subject: [PATCH] *** empty log message ***

---
 lisp/diff.el            |  4 ++--
 lisp/flow-ctrl.el       | 14 +++++++++-----
 lisp/mail/mailabbrev.el |  1 +
 3 files changed, 12 insertions(+), 7 deletions(-)

diff --git a/lisp/diff.el b/lisp/diff.el
index 138f674ea08..7a0dd95387c 100644
--- a/lisp/diff.el
+++ b/lisp/diff.el
@@ -62,8 +62,8 @@
 ;;;###autoload
 (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."
   (interactive
    (let (oldf newf)
      (reverse
diff --git a/lisp/flow-ctrl.el b/lisp/flow-ctrl.el
index 68d5165dc45..4d3d68f49be 100644
--- a/lisp/flow-ctrl.el
+++ b/lisp/flow-ctrl.el
@@ -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-^."
   (interactive)
   ;; 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)))))
 
 ;;;###autoload
 (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"))
 	hyphend)
     ;; 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)
diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el
index 71077a1760e..6b8bfefd199 100644
--- a/lisp/mail/mailabbrev.el
+++ b/lisp/mail/mailabbrev.el
@@ -1,3 +1,4 @@
+;;; ??? 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.
-- 
2.11.4.GIT