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 | 2759c3c23045bce34c14f6e9d77fd47ebbac9a30 (patch) | |
| tree | 32ea795b0d4d07bd91dcc0a705573a9a8a9abba1 /lisp/ange-ftp.el | |
| parent | 59bbfe45b8f4c40b754b4e3c38d627048665846a (diff) | |
| download | emacs-2759c3c23045bce34c14f6e9d77fd47ebbac9a30.tar.gz | |
(ange-ftp-kill-ftp-process): Handle buffer name as arg.
Diffstat (limited to 'lisp/ange-ftp.el')
| -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 |