mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Richard M. Stallman 1992-06-01 08:28:58 +00:00
parent 75d0ce1bd5
commit 9c50f91208
3 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/diff.el
View File

@ -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

14
lisp/flow-ctrl.el
View File

@ -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)

1
lisp/mail/mailabbrev.el
View File

@ -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.