Supersedes 1/7: Define macro at top of the file.
From 3a97836940b18ea2f50d53218e51fa81d617e788 Mon Sep 17 00:00:00 2001 From: David Maus <dm...@ictsoc.de> 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
pgpoAPV38Nqwc.pgp
Description: PGP signature
