From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 26 Jan 1997 05:14:27 +0000 (+0000)
Subject: (ange-ftp-get-process): Call delete-process.
X-Git-Tag: emacs-20.1~3011
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b77c56e6a88a3000bb06b45db77cbb989f3653be;p=emacs.git

(ange-ftp-get-process): Call delete-process.
---

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