mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 20:37:51 +00:00
Code Releases Activity

Fix error with %e agenda prefix format when there is no effort set

Browse source
This commit is contained in:
Max Mikhanosha 2011-07-06 20:05:06 -04:00 committed by Bastien Guerry
parent 76297448c9
commit 0cd6d82d39
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/org-agenda.el
View file

@ -5524,7 +5524,9 @@ Any match of REMOVE-RE will be removed from TXT."
(error nil)))
(when effort
(setq neffort (org-duration-string-to-minutes effort)
effort (setq effort (concat "[" effort "]" )))))
effort (setq effort (concat "[" effort "]")))))
;; prevent erroring out with %e format when there is no effort
(or effort (setq effort ""))
(when remove-re
(while (string-match remove-re txt)
@ -5562,6 +5564,7 @@ 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