diff options
| -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 |