Mercurial > emacs

comparison lisp/calendar/appt.el @ 24493:8cc1b3739d56

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(appt-make-list): Fix previous change.
author Karl Heuer <kwzh@gnu.org>
date Wed, 17 Mar 1999 05:16:07 +0000
parents e9d808eaaaa1
children b6b1fe18ecf5
comparison
equal deleted inserted replaced
24492:46906de4c968 24493:8cc1b3739d56
523 ;; Parse the entries for today. 523 ;; Parse the entries for today.
524 (while (and entry-list 524 (while (and entry-list
525 (calendar-date-equal 525 (calendar-date-equal
526 (calendar-current-date) (car (car entry-list)))) 526 (calendar-current-date) (car (car entry-list))))
527 (let ((time-string (substring (prin1-to-string 527 (let ((time-string (substring (prin1-to-string
528 (cadr (car entry-list))) 2 -1))) 528 (cadr (car entry-list))) 1 -1)))
529 529
530 (while (string-match 530 (while (string-match
531 "[0-9]?[0-9]:[0-9][0-9]\\(am\\|pm\\)?.*" 531 "[0-9]?[0-9]:[0-9][0-9]\\(am\\|pm\\)?.*"
532 time-string) 532 time-string)
533 (let* ((appt-time-string (substring time-string 533 (let* ((appt-time-string (substring time-string