From mboxrd@z Thu Jan 1 00:00:00 1970 From: David Maus Subject: [PATCH 1/7] New macro: Execute BODY in enviroment with uninterned SYMBOLS Date: Tue, 2 Aug 2011 11:23:34 +0200 Message-ID: <1312277020-7888-2-git-send-email-dmaus@ictsoc.de> References: <1312277020-7888-1-git-send-email-dmaus@ictsoc.de> Return-path: Received: from eggs.gnu.org ([140.186.70.92]:53248) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QoBCk-0007xH-Eh for emacs-orgmode@gnu.org; Tue, 02 Aug 2011 05:24:03 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QoBCj-0000FL-CC for emacs-orgmode@gnu.org; Tue, 02 Aug 2011 05:24:02 -0400 Received: from app1b.xlhost.de ([213.202.242.162]:59913) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QoBCj-0000FH-7f for emacs-orgmode@gnu.org; Tue, 02 Aug 2011 05:24:01 -0400 In-Reply-To: <1312277020-7888-1-git-send-email-dmaus@ictsoc.de> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Cc: David Maus * 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..53c60e5 100644 --- a/lisp/org-macs.el +++ b/lisp/org-macs.el @@ -370,6 +370,12 @@ 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-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) + (provide 'org-macs) ;; arch-tag: 7e6a73ce-aac9-4fc0-9b30-ce6f89dc6668 -- 1.7.2.5