| @@ -72,10 +72,10 @@ otherwise the path where the library installed." | |||||
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ||||
| ;; autoload | ;; autoload | ||||
| (defmacro lazy-load-eval (feature &optional functions &rest form) | |||||
| (defmacro lazy-load-eval (feature &optional functions &rest body) | |||||
| "Define FUNCTIONS to autoload from FEATURE. | "Define FUNCTIONS to autoload from FEATURE. | ||||
| FEATURE is a symbol. FUNCTIONS is a list of symbols. If FUNCTIONS is nil, | FEATURE is a symbol. FUNCTIONS is a list of symbols. If FUNCTIONS is nil, | ||||
| the function same as FEATURE is defined as autoloaded function. FORM is passed | |||||
| the function same as FEATURE is defined as autoloaded function. BODY is passed | |||||
| to `eval-after-load'. | to `eval-after-load'. | ||||
| When this macro is evaluated, this returns the path to library if FEATURE | When this macro is evaluated, this returns the path to library if FEATURE | ||||
| found, otherwise returns nil." | found, otherwise returns nil." | ||||
| @@ -93,9 +93,8 @@ found, otherwise returns nil." | |||||
| `(,(eval feature)))) | `(,(eval feature)))) | ||||
| (eval-after-load ,feature | (eval-after-load ,feature | ||||
| '(progn | '(progn | ||||
| ,@form)) | |||||
| ,@body)) | |||||
| ,libpath))) | ,libpath))) | ||||
| (put 'lazy-load-eval 'lisp-indent-function 2) | (put 'lazy-load-eval 'lisp-indent-function 2) | ||||
| ;; (macroexpand '(f-autoload 'autosave '(a-f b-f) (message "1") (message "2"))) | ;; (macroexpand '(f-autoload 'autosave '(a-f b-f) (message "1") (message "2"))) | ||||