Commit e47067d2 authored by Richard M. Stallman's avatar Richard M. Stallman

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

parent 5b4c672f
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment