Commit 6d766abc authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(ange-ftp-gwp-filter): Go to process buffer before getting text from it.

parent 9b842cab
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment