diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-01-26 05:14:27 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-01-26 05:14:27 +0000 |
| commit | b77c56e6a88a3000bb06b45db77cbb989f3653be (patch) | |
| tree | e66ae04350dad8c6fd659856db8242f664a70f46 | |
| parent | ffb8c7cb58cd967c5b76d625f2ccbc9e9fe75e34 (diff) | |
| download | emacs-b77c56e6a88a3000bb06b45db77cbb989f3653be.tar.gz emacs-b77c56e6a88a3000bb06b45db77cbb989f3653be.tar.bz2 emacs-b77c56e6a88a3000bb06b45db77cbb989f3653be.zip | |
(ange-ftp-get-process): Call delete-process.
| -rw-r--r-- | lisp/ange-ftp.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 5f68210d535..35b63c1ec2c 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -1383,6 +1383,10 @@ then kill the related ftp process." "Quote any characters in STRING that may confuse the ftp process." (apply (function concat) (mapcar (function + ;; This is said to be wrong; ftp is said to + ;; need quoting only for ", and that by doubling it. + ;; But experiment says this kind of quoting is correct + ;; when talking to ftp on GNU/Linux systems. (lambda (char) (if (or (<= char ? ) (> char ?\~) @@ -1971,6 +1975,8 @@ Create a new process if needed." (proc (get-process name))) (if (and proc (memq (process-status proc) '(run open))) proc + ;; Must delete dead process so that new process can reuse the name. + (if proc (delete-process proc)) (let ((pass (ange-ftp-quote-string (ange-ftp-get-passwd host user))) (account (ange-ftp-quote-string |