summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMax Mikhanosha <max@openchat.com>2011-07-22 13:31:05 -0400
committerBastien Guerry <bzg@altern.org>2011-07-27 14:59:19 +0200
commit860caf9f46c7b726c6807b09a4dc3e6f8680b539 (patch)
tree2e744ef1cd83b3a685e53c436d6f1d18b2c13879
parent0cd6d82d39c65315b353a55f797aa044e05cb4ba (diff)
downloadorg-mode-860caf9f46c7b726c6807b09a4dc3e6f8680b539.tar.gz
(org-agenda-change-all-lines): Change to item's buffer and use original column format that item was generated with
-rw-r--r--lisp/org-agenda.el14
1 files changed, 11 insertions, 3 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 27e7329..dee8f12 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -5564,7 +5564,6 @@ Any match of REMOVE-RE will be removed from TXT."
(>= (length category) org-prefix-category-max-length))
(setq category (substring category 0 (1- org-prefix-category-max-length)))))
;; Evaluate the compiled format
- (assert effort)
(setq rtn (concat (eval org-prefix-format-compiled) txt))
;; And finally add the text properties
@@ -5581,6 +5580,7 @@ Any match of REMOVE-RE will be removed from TXT."
'txt txt
'time time
'extra extra
+ 'format org-prefix-format-compiled
'dotime dotime))))
(defun org-agenda-fix-displayed-tags (txt tags add-inherited hide-re)
@@ -7255,8 +7255,16 @@ If FORCE-TAGS is non nil, the car of it returns the new tags."
dotime (org-get-at-bol 'dotime)
cat (org-get-at-bol 'org-category)
tags thetags
- new (org-format-agenda-item (org-get-at-bol 'extra)
- newhead cat tags dotime)
+ new
+ (let ((org-prefix-format-compiled
+ (or (get-text-property (point) 'format)
+ org-prefix-format-compiled)))
+ (with-current-buffer (marker-buffer hdmarker)
+ (save-excursion
+ (save-restriction
+ (widen)
+ (org-format-agenda-item (org-get-at-bol '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))