# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 891227331 0
# Node ID 47c514f3eed44aa9bc8107c2da61c54582c89e7a
# Parent  b5b8f2545eae7d7742f7ffe9b46351f2d41405cf
(ange-ftp-kill-ftp-process): Convert buffer name to the buffer.

diff -r b5b8f2545eae -r 47c514f3eed4 lisp/ange-ftp.el
--- 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."