mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-13 16:38:24 +00:00
Code

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

Browse Source
This commit is contained in:
Bastien Guerry 2013-03-26 16:00:56 +01:00
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)