diff options
| author | Richard M. Stallman | 1996-08-13 18:29:36 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-08-13 18:29:36 +0000 |
| commit | e47067d2a192b966adc773392f348a0f78b9f08f (patch) | |
| tree | 95e0d24c8944a20a551d005d9f2f0d4d49b01ebe /lisp | |
| parent | 5b4c672fefcfe9bbda1d916a91df4c4f158029cc (diff) | |
| download | emacs-e47067d2a192b966adc773392f348a0f78b9f08f.tar.gz emacs-e47067d2a192b966adc773392f348a0f78b9f08f.zip | |
(ange-ftp-kill-ftp-process): Handle buffer name as arg.
Diffstat (limited to 'lisp')
| -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 | |||
| 1367 | then kill the related ftp process." | 1367 | then kill the related ftp process." |
| 1368 | (interactive "bKill FTP process associated with buffer: ") | 1368 | (interactive "bKill FTP process associated with buffer: ") |
| 1369 | (if (null buffer) | 1369 | (if (null buffer) |
| 1370 | (setq buffer (current-buffer))) | 1370 | (setq buffer (current-buffer)) |
| 1371 | (setq buffer (get-buffer buffer))) | ||
| 1371 | (let ((file (or (buffer-file-name buffer) | 1372 | (let ((file (or (buffer-file-name buffer) |
| 1372 | (save-excursion (set-buffer buffer) default-directory)))) | 1373 | (save-excursion (set-buffer buffer) default-directory)))) |
| 1373 | (if file | 1374 | (if file |