Mercurial > emacs
comparison lisp/ange-ftp.el @ 15861:4bc8e9119883
(ange-ftp-kill-ftp-process): Handle buffer name as arg.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 13 Aug 1996 18:29:36 +0000 |
| parents | a745f54990f5 |
| children | 244a4779d1b5 |
comparison
equal
deleted
inserted
replaced
| 15860:bad765e6a8d9 | 15861:4bc8e9119883 |
|---|---|
| 1365 "Kill the FTP process associated with BUFFER (the current buffer, if nil). | 1365 "Kill the FTP process associated with BUFFER (the current buffer, if nil). |
| 1366 If the BUFFER's visited filename or default-directory is an ftp filename | 1366 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 |
| 1374 (let ((parsed (ange-ftp-ftp-name (expand-file-name file)))) | 1375 (let ((parsed (ange-ftp-ftp-name (expand-file-name file)))) |
| 1375 (if parsed | 1376 (if parsed |