* 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
