From b77c56e6a88a3000bb06b45db77cbb989f3653be Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 26 Jan 1997 05:14:27 +0000 Subject: [PATCH] (ange-ftp-get-process): Call delete-process. --- lisp/ange-ftp.el | 6 ++++++ 1 file changed, 6 insertions(+) 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 -- 2.39.2