From mboxrd@z Thu Jan 1 00:00:00 1970 From: David Maus Subject: [PATCH 5/7] Use macro org-with-uninterned Date: Tue, 2 Aug 2011 11:23:38 +0200 Message-ID: <1312277020-7888-6-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]:53332) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QoBCw-0000KP-VR for emacs-orgmode@gnu.org; Tue, 02 Aug 2011 05:24:17 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QoBCv-0000HZ-W9 for emacs-orgmode@gnu.org; Tue, 02 Aug 2011 05:24:14 -0400 Received: from app1b.xlhost.de ([213.202.242.162]:59942) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QoBCv-0000HV-Ph for emacs-orgmode@gnu.org; Tue, 02 Aug 2011 05:24:13 -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-agenda.el (org-agenda-with-point-at-orig-entry): Use macro org-with-uninterned. --- lisp/org-agenda.el | 13 +++++++------ 1 files changed, 7 insertions(+), 6 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index d47013b..25a556e 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -1714,12 +1714,13 @@ Note that functions in this alist don't need to be quoted." If STRING is non-nil, the text property will be fetched from position 0 in that string. If STRING is nil, it will be fetched from the beginning of the current line." - `(let ((marker (get-text-property (if string 0 (point-at-bol)) - 'org-hd-marker string))) - (with-current-buffer (marker-buffer marker) - (save-excursion - (goto-char marker) - ,@body)))) + (org-with-uninterned (marker) + `(let ((,marker (get-text-property (if string 0 (point-at-bol)) + 'org-hd-marker string))) + (with-current-buffer (marker-buffer ,marker) + (save-excursion + (goto-char ,marker) + ,@body))))) (defun org-add-agenda-custom-command (entry) "Replace or add a command in `org-agenda-custom-commands'. -- 1.7.2.5