Mercurial > emacs

comparison lisp/calendar/appt.el @ 24274:e9d808eaaaa1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(appt-make-list): Don't splice quotes and date onto message.
author Richard M. Stallman <rms@gnu.org>
date Sun, 07 Feb 1999 22:44:43 +0000
parents 5d10105c2906
children 8cc1b3739d56
comparison
equal deleted inserted replaced
24273:803ec3bfa983 24274:e9d808eaaaa1
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 (cdr (car entry-list))) 2 -2))) 528 (cadr (car entry-list))) 2 -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