procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Richard M. Stallman 1997-01-26 05:14:27 +00:00
parent ffb8c7cb58
commit b77c56e6a8
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ange-ftp.el
View file

@ -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