Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
4a11114d
Commit
4a11114d
authored
Mar 15, 1997
by
Simon Marshall
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
minor bug fixes/enhancements to comint-delchar-or-maybe-eof, send-invisible, comint-exec-1.
parent
11d431ad
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
17 additions
and
10 deletions
+17
-10
lisp/comint.el
lisp/comint.el
+17
-10
No files found.
lisp/comint.el
View file @
4a11114d
...
...
@@ -591,7 +591,7 @@ buffer. The hook `comint-exec-hook' is run after each exec."
;; Some programs that use terminfo get very confused
;; if TERM is not a valid terminal type.
(
if
(
and
(
boundp
'system-uses-terminfo
)
system-uses-terminfo
)
(
list
"TERM=dumb"
(
list
"TERM=dumb"
"TERMCAP="
(
format
"COLUMNS=%d"
(
frame-width
)))
(
list
"TERM=emacs"
(
format
"TERMCAP=emacs:co#%d:tc=unknown:"
(
frame-width
))))
...
...
@@ -1449,12 +1449,17 @@ Then send it to the process running in the current buffer.
The string is sent using `comint-input-sender'.
Security bug: your string can still be temporarily recovered with
\\[view-lossage]."
(
interactive
"P"
)
; Defeat snooping via C-x ESC ESC
(
interactive
"P"
)
; Defeat snooping via C-x ESC ESC
(
let
((
proc
(
get-buffer-process
(
current-buffer
))))
(
if
(
not
proc
)
(
error
"Current buffer has no process"
)
(
funcall
comint-input-sender
proc
(
if
(
stringp
str
)
str
(
comint-read-noecho
"Non-echoed text: "
t
))))))
(
cond
((
not
proc
)
(
error
"Current buffer has no process"
))
((
stringp
str
)
(
funcall
comint-input-sender
proc
str
))
(
t
(
let
((
str
(
comint-read-noecho
"Non-echoed text: "
t
)))
(
if
(
stringp
str
)
(
send-invisible
str
)
(
message
"Warning: text will be echoed"
)))))))
(
defun
comint-watch-for-password-prompt
(
string
)
"Prompt in the minibuffer for password and send without echoing.
...
...
@@ -1540,11 +1545,13 @@ Useful if you accidentally suspend the top-level process."
(
kill-region
pmark
(
point
)))))
(
defun
comint-delchar-or-maybe-eof
(
arg
)
"Delete ARG characters forward, or (if at eob) send an EOF to subprocess."
"Delete ARG characters forward or send an EOF to subprocess.
Sends an EOF only if point is at the end of the buffer and there is no input."
(
interactive
"p"
)
(
if
(
eobp
)
(
process-send-eof
)
(
delete-char
arg
)))
(
let
((
pmark
(
process-mark
(
get-buffer-process
(
current-buffer
)))))
(
if
(
and
(
eobp
)
(
=
(
point
)
(
marker-position
pmark
)))
(
process-send-eof
)
(
delete-char
arg
))))
(
defun
comint-send-eof
()
"Send an EOF to the current buffer's process."
...
...
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