New macro: Evaluate FORM in ENVIRONMENT

* org-macs.el (org-eval-in-environment): New macro. Evaluate FORM in ENVIRONMENT.
2011-08-10 07:43:10 +02:00 · 2011-08-10 07:43:10 +02:00 · 5423b329c1
parent 79605a9007
commit 5423b329c1
1 changed files with 4 additions and 0 deletions
--- a/lisp/org-macs.el
+++ b/lisp/org-macs.el
@ -380,6 +380,10 @@ The number of levels is controlled by `org-inlinetask-min-level'"
      (format-seconds string seconds)
    (format-time-string string (seconds-to-time seconds))))

+(defmacro org-eval-in-environment (environment form)
+  `(eval (list 'let ,environment ',form)))
+(put 'org-eval-in-environment 'lisp-indent-function 1)
+
 (provide 'org-macs)

 ;; arch-tag: 7e6a73ce-aac9-4fc0-9b30-ce6f89dc6668