Mercurial > emacs
changeset 4912:78b10b34042e
(ange-ftp-load): Handle extra args after the file name.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 04 Nov 1993 12:02:01 +0000 |
| parents | bc4636cdaf01 |
| children | eb26686b99cf |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ange-ftp.el Wed Nov 03 20:56:29 1993 +0000 +++ b/lisp/ange-ftp.el Thu Nov 04 12:02:01 1993 +0000 @@ -856,7 +856,7 @@ ;;;; Internal variables. ;;;; ------------------------------------------------------------ -(defconst ange-ftp-version "$Revision: 1.33 $") +(defconst ange-ftp-version "$Revision: 1.34 $") (defvar ange-ftp-data-buffer-name " *ftp data*" "Buffer name to hold directory listing data received from ftp process.") @@ -3634,13 +3634,13 @@ (format "Getting %s" fn1)) tmp1)))) -(defun ange-ftp-load (file) +(defun ange-ftp-load (file &rest args) (if (ange-ftp-ftp-name file) (let ((copy (ange-ftp-file-local-copy file))) (unwind-protect - (load copy) + (apply 'load copy args) (delete-file copy))) - (ange-ftp-real-load file))) + (apply 'ange-ftp-real-load file args))) ;; Calculate default-unhandled-directory for a given ange-ftp buffer. (defun ange-ftp-unhandled-file-name-directory (filename)