Mercurial > emacs

changeset 15861:4bc8e9119883

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ange-ftp-kill-ftp-process): Handle buffer name as arg.
author Richard M. Stallman <rms@gnu.org>
date Tue, 13 Aug 1996 18:29:36 +0000
parents bad765e6a8d9
children d0a061b594a1
files lisp/ange-ftp.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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