From 802572414b9fa9587f581c3e6582795f3a8d3df2 Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Fri, 11 Aug 2006 18:15:53 +0000 Subject: [PATCH] planner-calendar: Fix bug. * planner-calendar.el (planner-calendar-published-file-href): Fix potential error when the calendar for next month is empty. git-archimport-id: mwolson@gnu.org--2006-planner-el/planner-el--devel--0--patch-74 --- ChangeLog | 5 +++++ planner-calendar.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index d3e871e..071bfba 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2006-08-11 Michael Olson + + * planner-calendar.el (planner-calendar-published-file-href): Fix + potential error when the calendar for next month is empty. + 2006-08-08 Michael Olson * ChangeLog.1: Rename from ChangeLog.2004 to comply with standards diff --git a/planner-calendar.el b/planner-calendar.el index 63be340..768faf9 100644 --- a/planner-calendar.el +++ b/planner-calendar.el @@ -214,7 +214,8 @@ If ARROWS is non-nil, include prev/next month arrows." (defun planner-calendar-published-file-href (page &optional name nop) "Return an href anchor string to the published PAGE if PAGE exists." - (if (and (planner-page-file page) + (if (and (stringp page) + (planner-page-file page) (not (planner-private-p (planner-page-file page)))) (planner-link-href page (or name page)) (or name page))) -- 2.11.4.GIT