From 3a97836940b18ea2f50d53218e51fa81d617e788 Mon Sep 17 00:00:00 2001 From: David Maus Date: Tue, 2 Aug 2011 15:39:49 +0200 Subject: [PATCH] New macro: Execute BODY in enviroment with uninterned SYMBOLS * org-macs.el (org-with-uninterned): New macro. Execute BODY in enviroment with uninterned SYMBOLS. --- lisp/org-macs.el | 6 ++++++ 1 files changed, 6 insertions(+), 0 deletions(-) diff --git a/lisp/org-macs.el b/lisp/org-macs.el index 906be61..1d31744 100644 --- a/lisp/org-macs.el +++ b/lisp/org-macs.el @@ -47,6 +47,12 @@ (declare-function org-add-props "org-compat" (string plist &rest props)) (declare-function org-string-match-p "org-compat" (&rest args)) +(defmacro org-with-uninterned (symbols &rest body) + `(let ,(mapcar (lambda (s) + `(,s (make-symbol (symbol-name ',s)))) symbols) + ,@body)) +(put 'org-with-uninterned 'lisp-indent-function 1) + (defmacro org-called-interactively-p (&optional kind) (if (featurep 'xemacs) `(interactive-p) -- 1.7.2.5