Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
9c50f912
Commit
9c50f912
authored
Jun 01, 1992
by
Richard M. Stallman
Browse files
*** empty log message ***
parent
75d0ce1b
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
12 additions
and
7 deletions
+12
-7
lisp/diff.el
lisp/diff.el
+2
-2
lisp/flow-ctrl.el
lisp/flow-ctrl.el
+9
-5
lisp/mail/mailabbrev.el
lisp/mail/mailabbrev.el
+1
-0
No files found.
lisp/diff.el
View file @
9c50f912
...
...
@@ -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
...
...
lisp/flow-ctrl.el
View file @
9c50f912
...
...
@@ -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
)
...
...
lisp/mail/mailabbrev.el
View file @
9c50f912
;;; ??? 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.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment