From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bernt Hansen Subject: [PATCH] Fix agenda display when headlines are missing Date: Wed, 13 Apr 2011 08:12:10 -0400 Message-ID: <1302696730-14326-1-git-send-email-bernt@norang.ca> References: Return-path: Received: from eggs.gnu.org ([140.186.70.92]:36848) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Q9yw3-0002qc-Bm for emacs-orgmode@gnu.org; Wed, 13 Apr 2011 08:12:44 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Q9yvx-0005xo-GW for emacs-orgmode@gnu.org; Wed, 13 Apr 2011 08:12:39 -0400 Received: from mho-02-ewr.mailhop.org ([204.13.248.72]:46898) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Q9yvx-0005xh-C7 for emacs-orgmode@gnu.org; Wed, 13 Apr 2011 08:12:33 -0400 In-Reply-To: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Cc: Richard Riley , Bernt Hansen * 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. --- Hi Richard, This should if your issue. Please test it and report back. This patch is available at git://git.norang.ca/org-mode.git fix-agenda-empty-headines Regards, Bernt 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 5571838..768c417 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 -- 1.7.5.rc0.100.gcb35c0