Mercurial > emacs
changeset 669:4c64c671426f
*** empty log message ***
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 01 Jun 1992 08:28:58 +0000 |
| parents | 47871343371e |
| children | bff41708644e |
| files | lisp/diff.el lisp/flow-ctrl.el lisp/mail/mailabbrev.el |
| diffstat | 3 files changed, 12 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/diff.el Sun May 31 21:13:26 1992 +0000 +++ b/lisp/diff.el Mon Jun 01 08:28:58 1992 +0000 @@ -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
--- a/lisp/flow-ctrl.el Sun May 31 21:13:26 1992 +0000 +++ b/lisp/flow-ctrl.el Mon Jun 01 08:28:58 1992 +0000 @@ -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 @@ ": 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)
--- a/lisp/mail/mailabbrev.el Sun May 31 21:13:26 1992 +0000 +++ b/lisp/mail/mailabbrev.el Mon Jun 01 08:28:58 1992 +0000 @@ -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.