diff options
| author | Richard M. Stallman | 1998-03-30 03:08:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-03-30 03:08:51 +0000 |
| commit | cf1b7d22af6b490d864ae9ae7282ca42f12dabc1 (patch) | |
| tree | f3d5775bdc4986f213aae4b413964991252a2553 | |
| parent | c6d354e76e05aa2b2031f6b560a2e5cac7bd2f9d (diff) | |
| download | emacs-cf1b7d22af6b490d864ae9ae7282ca42f12dabc1.tar.gz emacs-cf1b7d22af6b490d864ae9ae7282ca42f12dabc1.zip | |
(ange-ftp-kill-ftp-process): Convert buffer name to the buffer.
| -rw-r--r-- | lisp/ange-ftp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 922dc28e4f1..c7e980e6f2c 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el | |||
| @@ -1499,7 +1499,7 @@ then kill the related ftp process." | |||
| 1499 | (if parsed | 1499 | (if parsed |
| 1500 | (let ((host (nth 0 parsed)) | 1500 | (let ((host (nth 0 parsed)) |
| 1501 | (user (nth 1 parsed))) | 1501 | (user (nth 1 parsed))) |
| 1502 | (kill-buffer (ange-ftp-ftp-process-buffer host user)))))))) | 1502 | (kill-buffer (get-buffer (ange-ftp-ftp-process-buffer host user))))))))) |
| 1503 | 1503 | ||
| 1504 | (defun ange-ftp-quote-string (string) | 1504 | (defun ange-ftp-quote-string (string) |
| 1505 | "Quote any characters in STRING that may confuse the ftp process." | 1505 | "Quote any characters in STRING that may confuse the ftp process." |