procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Richard M. Stallman 1995-09-06 18:17:59 +00:00
parent 9b842cab49
commit 6d766abc91
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ange-ftp.el
View file

@ -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