procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ange-ftp-kill-ftp-process): Really use the BUFFER arg. Make it optional.

Browse source
This commit is contained in:
Richard M. Stallman 1996-06-18 17:00:03 +00:00
parent 9becbeca26
commit c360b9251b
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ange-ftp.el
View file

@ -1361,14 +1361,15 @@ Optional DEFAULT is password to start with."
(ange-ftp-ftp-name buffer-file-name))
(auto-save-mode ange-ftp-auto-save)))
(defun ange-ftp-kill-ftp-process (buffer)
"Kill the FTP process associated with BUFFER.
(defun ange-ftp-kill-ftp-process (&optional buffer)
"Kill the FTP process associated with BUFFER (the current buffer, if nil).
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)))
(let ((file (or (buffer-file-name) default-directory)))
(let ((file (or (buffer-file-name buffer)
(save-excursion (set-buffer buffer) default-directory))))
(if file
(let ((parsed (ange-ftp-ftp-name (expand-file-name file))))
(if parsed