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 | d8ee07093baf3f7bf88834a0546ff2bd3ee87698 (patch) | |
| tree | aa984cb5ed82c2ac60a5702e31c1f543f6e278a0 /lisp/ange-ftp.el | |
| parent | 69f3cec44ba23852fa62433cf3827ad0d3ce5940 (diff) | |
| download | emacs-d8ee07093baf3f7bf88834a0546ff2bd3ee87698.tar.gz | |
(ange-ftp-get-process): Call delete-process.
Diffstat (limited to 'lisp/ange-ftp.el')
| -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 |