mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 06:01:22 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/calendar/appt.el (appt-make-list): Simplify.

Browse source
This commit is contained in:
Glenn Morris 2011-05-12 18:31:53 -07:00
parent 92d1079638
commit 5233edd7e8
2 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2011-05-13 Glenn Morris <rgm@gnu.org>
* calendar/appt.el (appt-make-list): Simplify.
2011-05-12 Andreas Schwab <schwab@linux-m68k.org>
* progmodes/ld-script.el (ld-script-keywords)

13
lisp/calendar/appt.el
View file

@ -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)