From 1bb361e4c22d8a46628a23520fb3fc97a7718a99 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 4 Nov 1993 12:02:01 +0000 Subject: [PATCH] (ange-ftp-load): Handle extra args after the file name. --- lisp/ange-ftp.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 312f3ee6d35..9e51f6f33da 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -856,7 +856,7 @@ SIZE, if supplied, should be a prime number." ;;;; 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 @@ system TYPE.") (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) -- 2.39.5