Mercurial > emacs

changeset 16933:c6d12d67e2b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ange-ftp-get-process): Call delete-process.
author Richard M. Stallman <rms@gnu.org>
date Sun, 26 Jan 1997 05:14:27 +0000
parents ada95b0e82ae
children 853f638bbc81
files lisp/ange-ftp.el
diffstat 1 files changed, 6 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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