diff options
| author | Richard M. Stallman | 1999-02-07 22:44:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-02-07 22:44:43 +0000 |
| commit | 4d24213703a612dad8a7deef3db57e2f049705e6 (patch) | |
| tree | 27a7d2a4097b0821d27bcb07b7a273d192695cc0 | |
| parent | bed1b0c89060d12902dce395774584d78c00e279 (diff) | |
| download | emacs-4d24213703a612dad8a7deef3db57e2f049705e6.tar.gz emacs-4d24213703a612dad8a7deef3db57e2f049705e6.zip | |
(appt-make-list): Don't splice quotes and date onto message.
| -rw-r--r-- | lisp/calendar/appt.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el index 62296bb9a57..22cc7e1b84c 100644 --- a/lisp/calendar/appt.el +++ b/lisp/calendar/appt.el | |||
| @@ -525,7 +525,7 @@ The time should be in either 24 hour format or am/pm format." | |||
| 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\\)?.*" |