summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBernt Hansen <bernt@norang.ca>2011-04-13 17:12:10 +0000
committerCarsten Dominik <carsten.dominik@gmail.com>2011-04-15 13:55:01 +0200
commit383cb5dcaa2f645de1d4574b0074fa6df84839bc (patch)
tree4310042eefd3d83f1d9ddb73113cec18678b8c20
parent1bc0623be2da3da9789d526efb3b24f6d295fbbc (diff)
downloadorg-mode-383cb5dcaa2f645de1d4574b0074fa6df84839bc.tar.gz
Fix agenda display when headlines are missing
* lisp/org-agenda.el (org-agenda-get-timestamps): Fix agenda display when headlines are missing The following entry breaks the agenda display. ,---- | **** | :PROPERTIES: | :DateCreated: <2011-04-13 Mi 10:00> | :END: | | [[gnus:nntp%2BGwene:gwene.org.emacsen.planet][gnus:nntp+Gwene:gwene.org.emacsen.planet]] `---- Provide the empty string as the headline if the search for the headline returns nil. org-format-agenda-items requires a string for the headline parameter.
-rw-r--r--lisp/org-agenda.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index a65d2d1..ae54477 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -4710,7 +4710,7 @@ This function is invoked if `org-agenda-todo-ignore-deadlines',
(setq hdmarker (org-agenda-new-marker)
tags (org-get-tags-at))
(looking-at "\\*+[ \t]+\\([^\r\n]+\\)")
- (setq head (match-string 1))
+ (setq head (or (match-string 1) ""))
(setq txt (org-format-agenda-item
(if inactivep org-agenda-inactive-leader nil)
head category tags timestr