# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 839960976 0
# Node ID 4bc8e911988395952d5594d56e094916dc4be1a6
# Parent  bad765e6a8d99a75ea0228897cd65aa6bcec9dcc
(ange-ftp-kill-ftp-process): Handle buffer name as arg.

diff -r bad765e6a8d9 -r 4bc8e9119883 lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Tue Aug 13 15:27:23 1996 +0000
+++ b/lisp/ange-ftp.el	Tue Aug 13 18:29:36 1996 +0000
@@ -1367,7 +1367,8 @@
 then kill the related ftp process."
   (interactive "bKill FTP process associated with buffer: ")
   (if (null buffer)
-      (setq buffer (current-buffer)))
+      (setq buffer (current-buffer))
+    (setq buffer (get-buffer buffer)))
   (let ((file (or (buffer-file-name buffer)
 		  (save-excursion (set-buffer buffer) default-directory))))
     (if file