Browse Source

form -> body

pull/1/head
10sr 12 years ago
parent
commit
cc3fef1451
1 changed files with 3 additions and 4 deletions
  1. +3
    -4
      emacs.el

+ 3
- 4
emacs.el View File

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


Loading…
Cancel
Save