Mercurial > emacs

diff 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
line wrap: on
line diff
--- a/lisp/ange-ftp.el	Sun Mar 29 02:35:51 1998 +0000
+++ b/lisp/ange-ftp.el	Mon Mar 30 03:08:51 1998 +0000
@@ -1499,7 +1499,7 @@
 	  (if parsed
 	      (let ((host (nth 0 parsed))
 		    (user (nth 1 parsed)))
-		(kill-buffer (ange-ftp-ftp-process-buffer host user))))))))
+		(kill-buffer (get-buffer (ange-ftp-ftp-process-buffer host user)))))))))
 
 (defun ange-ftp-quote-string (string)
   "Quote any characters in STRING that may confuse the ftp process."