From mboxrd@z Thu Jan 1 00:00:00 1970 From: Eric Abrahamsen Subject: [PATCH] Fix org-agenda-with-point-at-orig-entry Date: Sat, 19 Sep 2015 13:44:37 +0800 Message-ID: <87a8sj0xq2.fsf@ericabrahamsen.net> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:34324) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZdAxe-0008KB-Rt for emacs-orgmode@gnu.org; Sat, 19 Sep 2015 01:45:23 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZdAxb-0005DE-Hw for emacs-orgmode@gnu.org; Sat, 19 Sep 2015 01:45:22 -0400 Received: from plane.gmane.org ([80.91.229.3]:53146) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZdAxb-0005Cy-Bf for emacs-orgmode@gnu.org; Sat, 19 Sep 2015 01:45:19 -0400 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1ZdAxZ-0001kX-6s for emacs-orgmode@gnu.org; Sat, 19 Sep 2015 07:45:17 +0200 Received: from 123.123.22.164 ([123.123.22.164]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 19 Sep 2015 07:45:17 +0200 Received: from eric by 123.123.22.164 with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 19 Sep 2015 07:45:17 +0200 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 --=-=-= Content-Type: text/plain A comma is missing from this macro's backquote template. Here's a patch to add it! Eric --=-=-= Content-Type: text/x-diff Content-Disposition: attachment; filename=0001-org-agenda.el-Fix-org-agenda-with-point-at-orig-entr.patch >From 628b8ec90851710bb168164e2d4145acf4360d77 Mon Sep 17 00:00:00 2001 From: Eric Abrahamsen Date: Sat, 19 Sep 2015 13:41:25 +0800 Subject: [PATCH] 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. --- lisp/org-agenda.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 9f85cfa..95fb046 100644 --- a/lisp/org-agenda.el +++ b/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 of the current line." (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))) (with-current-buffer (marker-buffer ,marker) (save-excursion -- 2.5.2 --=-=-=--