diff options
| author | Richard M. Stallman | 1995-09-06 18:17:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-09-06 18:17:59 +0000 |
| commit | 6d766abc91070e6e4a5f3e24cb4461e55a58b938 (patch) | |
| tree | 59475b152773ad92376059ecea9ce56f4cf7f8f2 | |
| parent | 9b842cab4956c2be77d1e68e76c7133865a86419 (diff) | |
| download | emacs-6d766abc91070e6e4a5f3e24cb4461e55a58b938.tar.gz emacs-6d766abc91070e6e4a5f3e24cb4461e55a58b938.zip | |
(ange-ftp-gwp-filter): Go to process buffer before getting text from it.
| -rw-r--r-- | lisp/ange-ftp.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 87af1adedaa..b2824d02bd2 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el | |||
| @@ -1601,8 +1601,10 @@ good, skip, fatal, or unknown." | |||
| 1601 | 1601 | ||
| 1602 | (defun ange-ftp-gwp-filter (proc str) | 1602 | (defun ange-ftp-gwp-filter (proc str) |
| 1603 | (comint-output-filter proc str) | 1603 | (comint-output-filter proc str) |
| 1604 | ;; Replace STR by the result of the comint processing. | 1604 | (save-excursion |
| 1605 | (setq str (buffer-substring comint-last-output-start (process-mark proc))) | 1605 | (set-buffer (process-buffer proc)) |
| 1606 | ;; Replace STR by the result of the comint processing. | ||
| 1607 | (setq str (buffer-substring comint-last-output-start (process-mark proc)))) | ||
| 1606 | (cond ((string-match "login: *$" str) | 1608 | (cond ((string-match "login: *$" str) |
| 1607 | (send-string proc | 1609 | (send-string proc |
| 1608 | (concat | 1610 | (concat |