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

6d766abc · Richard M. Stallman · 9b842cab · 6d766abc
Commit 6d766abc authored Sep 06, 1995 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 2 deletions

lisp/ange-ftp.el lisp/ange-ftp.el +4 -2

No files found.
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -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