|
@@ -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"))) |
|
|