Browse Source

org-agenda.el: Fix org-agenda-with-point-at-orig-entry

* lisp/org-agenda.el (org-agenda-with-point-at-orig-entry): Add missing
  comma in the backquote template.
Eric Abrahamsen 9 years ago
parent
commit
1ae9741eab
1 changed files with 1 additions and 1 deletions
  1. 1 1
      lisp/org-agenda.el

+ 1 - 1
lisp/org-agenda.el

@@ -2006,7 +2006,7 @@ 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
 in that string.  If STRING is nil, it will be fetched from the beginning
 of the current line."
 of the current line."
   (org-with-gensyms (marker)
   (org-with-gensyms (marker)
-    `(let ((,marker (get-text-property (if string 0 (point-at-bol))
+    `(let ((,marker (get-text-property (if ,string 0 (point-at-bol))
 				       'org-hd-marker ,string)))
 				       'org-hd-marker ,string)))
        (with-current-buffer (marker-buffer ,marker)
        (with-current-buffer (marker-buffer ,marker)
 	 (save-excursion
 	 (save-excursion