From: Glenn Morris Date: Fri, 13 May 2011 01:35:11 +0000 (-0700) Subject: * lisp/calendar/appt.el (appt-time-msg-list): Doc fix. X-Git-Tag: emacs-pretest-24.0.90~104^2~618^2~290 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4accbca6e956418ee0a6535cd25a03ed1b8d441f;p=emacs.git * lisp/calendar/appt.el (appt-time-msg-list): Doc fix. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0eda5afc12d..8d8b1bf7899 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,7 @@ 2011-05-13 Glenn Morris * calendar/appt.el (appt-make-list): Simplify. + (appt-time-msg-list): Doc fix. 2011-05-12 Andreas Schwab diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el index 366117277d3..d961e43cda2 100644 --- a/lisp/calendar/appt.el +++ b/lisp/calendar/appt.el @@ -167,16 +167,16 @@ Only relevant if reminders are being displayed in a window." ;; TODO Turn this into an alist? It would be easier to add more ;; optional elements. -;; TODO There should be a way to set WARNTIME (and other properties) -;; from the diary-file. Implementing that would be a good reason -;; to change this to an alist. +;; Why is the first element (MINUTES) rather than just MINUTES? +;; It may just inherit from diary-entries-list, where we have +;; ((MONTH DAY YEAR) ENTRY) (defvar appt-time-msg-list nil "The list of appointments for today. Use `appt-add' and `appt-delete' to add and delete appointments. The original list is generated from today's `diary-entries-list', and can be regenerated using the function `appt-check'. Each element of the generated list has the form -\(MINUTES STRING [FLAG] [WARNTIME]) +\((MINUTES) STRING [FLAG] [WARNTIME]) where MINUTES is the time in minutes of the appointment after midnight, and STRING is the description of the appointment. FLAG and WARNTIME are not always present. A non-nil FLAG @@ -548,6 +548,8 @@ Any appointments made with `appt-add' are not affected by this function." ;; Get the whole string for this appointment. (appt-time-string (substring time-string beg end)) + ;; FIXME why the list? It makes the first + ;; element (MINUTES) rather than MINUTES. (appt-time (list (appt-convert-time only-time))) (time-msg (append (list appt-time appt-time-string)