diff options
author | Julien Danjou <julien@danjou.info> | 2010-12-17 22:18:13 +0000 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2010-12-20 13:12:25 +0100 |
commit | 2c1925f2a5135e46f70ae5267b052d0bc48ae9f7 (patch) | |
tree | a63d55a130d2cfe1505cb0e702382afc88037597 | |
parent | a43055a26fd0bc69bebf6350dc48a777aabbc06d (diff) | |
download | org-mode-2c1925f2a5135e46f70ae5267b052d0bc48ae9f7.tar.gz |
Add org-eval
* org-agenda.el (org-eval): New function.
Signed-off-by: Julien Danjou <julien@danjou.info>
-rw-r--r-- | lisp/org-agenda.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index df77615..23ad0e7 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -5369,6 +5369,12 @@ The modified list may contain inherited tags, and tags matched by (append new list) (append list new))))) +(defun org-eval (form) + "Eval FORM and return result." + (condition-case error + (eval form) + (error (format "%%![Error: %s]" error)))) + (defun org-compile-prefix-format (key) "Compile the prefix format into a Lisp form that can be evaluated. The resulting form is returned and stored in the variable |