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
6d766abc
Commit
6d766abc
authored
Sep 06, 1995
by
Richard M. Stallman
Browse files
(ange-ftp-gwp-filter): Go to process buffer before getting text from it.
parent
9b842cab
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
2 deletions
+4
-2
lisp/ange-ftp.el
lisp/ange-ftp.el
+4
-2
No files found.
lisp/ange-ftp.el
View file @
6d766abc
...
...
@@ -1601,8 +1601,10 @@ good, skip, fatal, or unknown."
(
defun
ange-ftp-gwp-filter
(
proc
str
)
(
comint-output-filter
proc
str
)
;; Replace STR by the result of the comint processing.
(
setq
str
(
buffer-substring
comint-last-output-start
(
process-mark
proc
)))
(
save-excursion
(
set-buffer
(
process-buffer
proc
))
;; Replace STR by the result of the comint processing.
(
setq
str
(
buffer-substring
comint-last-output-start
(
process-mark
proc
))))
(
cond
((
string-match
"login: *$"
str
)
(
send-string
proc
(
concat
...
...
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