diff options
| author | Glenn Morris <rgm@gnu.org> | 2011-05-12 18:35:11 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2011-05-12 18:35:11 -0700 |
| commit | 4accbca6e956418ee0a6535cd25a03ed1b8d441f (patch) | |
| tree | 51cf4ba7061e65e70f48bd7e253a9360260440dc /lisp | |
| parent | 5233edd7e8b9b5bfdb200b5fa287689a65ff794f (diff) | |
| download | emacs-4accbca6e956418ee0a6535cd25a03ed1b8d441f.tar.gz emacs-4accbca6e956418ee0a6535cd25a03ed1b8d441f.tar.bz2 emacs-4accbca6e956418ee0a6535cd25a03ed1b8d441f.zip | |
* lisp/calendar/appt.el (appt-time-msg-list): Doc fix.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 1 | ||||
| -rw-r--r-- | lisp/calendar/appt.el | 10 |
2 files changed, 7 insertions, 4 deletions
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 <rgm@gnu.org> * calendar/appt.el (appt-make-list): Simplify. + (appt-time-msg-list): Doc fix. 2011-05-12 Andreas Schwab <schwab@linux-m68k.org> 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) |