Mercurial > emacs

changeset 13005:35c7fa318961

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ange-ftp-gwp-filter): Go to process buffer before getting text from it.
author Richard M. Stallman <rms@gnu.org>
date Wed, 06 Sep 1995 18:17:59 +0000
parents 0ed37da6f0f3
children e4e18abbe5a2
files lisp/ange-ftp.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ange-ftp.el	Wed Sep 06 18:04:02 1995 +0000
+++ b/lisp/ange-ftp.el	Wed Sep 06 18:17:59 1995 +0000
@@ -1601,8 +1601,10 @@
 
 (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