diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-08-13 18:29:36 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-08-13 18:29:36 +0000 |
commit | e47067d2a192b966adc773392f348a0f78b9f08f (patch) | |
tree | 95e0d24c8944a20a551d005d9f2f0d4d49b01ebe | |
parent | 5b4c672fefcfe9bbda1d916a91df4c4f158029cc (diff) | |
download | emacs-e47067d2a192b966adc773392f348a0f78b9f08f.tar.gz |
(ange-ftp-kill-ftp-process): Handle buffer name as arg.
-rw-r--r-- | lisp/ange-ftp.el | 3 |
1 files changed, 2 insertions, 1 deletions
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 |