Mercurial > emacs
comparison lisp/calendar/appt.el @ 24493:8cc1b3739d56
(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 |