From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 30 Mar 1998 03:08:51 +0000 (+0000)
Subject: (ange-ftp-kill-ftp-process): Convert buffer name to the buffer.
X-Git-Tag: emacs-20.3~1761
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cf1b7d22af6b490d864ae9ae7282ca42f12dabc1;p=emacs.git

(ange-ftp-kill-ftp-process): Convert buffer name to the buffer.
---

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 922dc28e4f1..c7e980e6f2c 100644
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -1499,7 +1499,7 @@ then kill the related ftp process."
 	  (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."