Mercurial > emacs

comparison lisp/ange-ftp.el @ 21313:47c514f3eed4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ange-ftp-kill-ftp-process): Convert buffer name to the buffer.
author Richard M. Stallman <rms@gnu.org>
date Mon, 30 Mar 1998 03:08:51 +0000
parents df07331ebc84
children b0387f13fc0a
comparison
equal deleted inserted replaced
21312:b5b8f2545eae 21313:47c514f3eed4
1497 (if file 1497 (if file
1498 (let ((parsed (ange-ftp-ftp-name (expand-file-name file)))) 1498 (let ((parsed (ange-ftp-ftp-name (expand-file-name file))))
1499 (if parsed 1499 (if parsed
1500 (let ((host (nth 0 parsed)) 1500 (let ((host (nth 0 parsed))
1501 (user (nth 1 parsed))) 1501 (user (nth 1 parsed)))
1502 (kill-buffer (ange-ftp-ftp-process-buffer host user)))))))) 1502 (kill-buffer (get-buffer (ange-ftp-ftp-process-buffer host user)))))))))
1503 1503
1504 (defun ange-ftp-quote-string (string) 1504 (defun ange-ftp-quote-string (string)
1505 "Quote any characters in STRING that may confuse the ftp process." 1505 "Quote any characters in STRING that may confuse the ftp process."
1506 (apply (function concat) 1506 (apply (function concat)
1507 (mapcar (function 1507 (mapcar (function