diff options
| author | Glenn Morris <rgm@gnu.org> | 2011-05-12 18:31:53 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2011-05-12 18:31:53 -0700 |
| commit | 5233edd7e8b9b5bfdb200b5fa287689a65ff794f (patch) | |
| tree | 5985a0bcc894a054403b0d05f2e6ecbb003e465a /lisp/calendar | |
| parent | 92d1079638fad7c31cf11cd608f33d3385e24b39 (diff) | |
| download | emacs-5233edd7e8b9b5bfdb200b5fa287689a65ff794f.tar.gz | |
* lisp/calendar/appt.el (appt-make-list): Simplify.
Diffstat (limited to 'lisp/calendar')
| -rw-r--r-- | lisp/calendar/appt.el | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el index dce6cc28239..366117277d3 100644 --- a/lisp/calendar/appt.el +++ b/lisp/calendar/appt.el @@ -569,15 +569,12 @@ Any appointments made with `appt-add' are not affected by this function." (setq entry-list (cdr entry-list))))) (setq appt-time-msg-list (appt-sort-list appt-time-msg-list)) ;; Convert current time to minutes after midnight (12:01am = 1), - ;; so that elements in the list that are earlier than the - ;; present time can be removed. + ;; and remove elements in the list that are in the past. (let* ((now (decode-time)) - (cur-comp-time (+ (* 60 (nth 2 now)) (nth 1 now))) - (appt-comp-time (caar (car appt-time-msg-list)))) - (while (and appt-time-msg-list (< appt-comp-time cur-comp-time)) - (setq appt-time-msg-list (cdr appt-time-msg-list)) - (if appt-time-msg-list - (setq appt-comp-time (caar (car appt-time-msg-list))))))))) + (now-mins (+ (* 60 (nth 2 now)) (nth 1 now)))) + (while (and appt-time-msg-list + (< (caar (car appt-time-msg-list)) now-mins)) + (setq appt-time-msg-list (cdr appt-time-msg-list))))))) (defun appt-sort-list (appt-list) |