tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Merge branch 'master' of orgmode.org:org-mode

This commit is contained in:
Bastien Guerry 2013-03-26 16:00:56 +01:00
parent 4184699910 9594249b4d
commit aa7b1e0b39
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/org-agenda.el
View File

@ -6493,12 +6493,15 @@ Any match of REMOVE-RE will be removed from TXT."
(match-string 2 txt))
t t txt))))
(when (derived-mode-p 'org-mode)
(setq effort (ignore-errors (get-text-property 0 'org-effort txt)))
(if effort
(setq neffort (org-duration-string-to-minutes effort)
effort (setq effort (concat "[" effort "]")))
;; prevent erroring out with %e format when there is no effort
(setq effort "")))
(setq effort (ignore-errors (get-text-property 0 'org-effort txt))))
;; org-agenda-add-time-grid-maybe calls us with *Agenda* as
;; current buffer, so move this check outside of above
(if effort
(setq neffort (org-duration-string-to-minutes effort)
effort (setq effort (concat "[" effort "]")))
;; prevent erroring out with %e format when there is no effort
(setq effort ""))
(when remove-re
(while (string-match remove-re txt)