diff options
author | Bernt Hansen <bernt@norang.ca> | 2011-04-13 17:12:10 +0000 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2011-04-15 13:55:01 +0200 |
commit | 383cb5dcaa2f645de1d4574b0074fa6df84839bc (patch) | |
tree | 4310042eefd3d83f1d9ddb73113cec18678b8c20 | |
parent | 1bc0623be2da3da9789d526efb3b24f6d295fbbc (diff) | |
download | org-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.el | 2 |
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 |