From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 13 Aug 1996 18:29:36 +0000 (+0000)
Subject: (ange-ftp-kill-ftp-process): Handle buffer name as arg.
X-Git-Tag: emacs-19.34~1
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e47067d2a192b966adc773392f348a0f78b9f08f;p=emacs.git

(ange-ftp-kill-ftp-process): Handle buffer name as arg.
---

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index d0dae527cc9..6174ce70c9c 100644
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -1367,7 +1367,8 @@ If the BUFFER's visited filename or default-directory is an ftp filename
 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