# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 854255667 0
# Node ID c6d12d67e2b591839f25e01f18d82568c199fb2e
# Parent  ada95b0e82aef518168c71811772aa338ab1b235
(ange-ftp-get-process): Call delete-process.

diff -r ada95b0e82ae -r c6d12d67e2b5 lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Sat Jan 25 20:21:03 1997 +0000
+++ b/lisp/ange-ftp.el	Sun Jan 26 05:14:27 1997 +0000
@@ -1383,6 +1383,10 @@
   "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 @@
 	 (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