From 7d29e59fb61a8ef76e1c5c583a52cc25b32fba41 Mon Sep 17 00:00:00 2001 From: Leo Date: Sun, 12 Sep 2010 10:41:19 +0100 Subject: [PATCH 2/2] Make appt-make-list more robust It depends on a list of sorted diary entries to work; so explicitly sort the entries. --- lisp/calendar/appt.el | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el index b590290..53469b0 100644 --- a/lisp/calendar/appt.el +++ b/lisp/calendar/appt.el @@ -572,7 +572,8 @@ appointment package (if it is not already active)." ;; looking for entries beginning with a time. If the ;; entry begins with a time, add it to the ;; appt-time-msg-list. Then sort the list. - (let ((entry-list diary-entries-list) + (let ((entry-list (sort (copy-sequence diary-entries-list) + 'diary-entry-compare)) time-string) ;; Skip diary entries for dates before today. (while (and entry-list -- 1.7.2