From 013d9f03f2e641dd5e21d0966e35788c75e0feeb Mon Sep 17 00:00:00 2001 From: Max Mikhanosha Date: Thu, 22 Mar 2012 15:02:54 -0400 Subject: [PATCH] When an agenda item with 'extra property (such as Scheduled 2x) is redisplayed, it was losing the 'extra property on redisplay * lisp/org-agenda.el (org-agenda-change-all-lines): move accessing of 'extra text property outside of with-current-buffer for original buffer --- lisp/org-agenda.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 3a434ac53..86b9c94c2 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7652,13 +7652,13 @@ If FORCE-TAGS is non nil, the car of it returns the new tags." new (let ((org-prefix-format-compiled (or (get-text-property (point) 'format) - org-prefix-format-compiled))) + org-prefix-format-compiled)) + (extra (org-get-at-bol 'extra))) (with-current-buffer (marker-buffer hdmarker) (save-excursion (save-restriction (widen) - (org-agenda-format-item (org-get-at-bol 'extra) - newhead cat tags dotime))))) + (org-agenda-format-item extra newhead cat tags dotime))))) pl (text-property-any (point-at-bol) (point-at-eol) 'org-heading t) undone-face (org-get-at-bol 'undone-face) done-face (org-get-at-bol 'done-face)) -- 2.11.4.GIT