From 4d24213703a612dad8a7deef3db57e2f049705e6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 7 Feb 1999 22:44:43 +0000 Subject: [PATCH] (appt-make-list): Don't splice quotes and date onto message. --- lisp/calendar/appt.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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." (calendar-date-equal (calendar-current-date) (car (car entry-list)))) (let ((time-string (substring (prin1-to-string - (cdr (car entry-list))) 2 -2))) + (cadr (car entry-list))) 2 -1))) (while (string-match "[0-9]?[0-9]:[0-9][0-9]\\(am\\|pm\\)?.*" -- 2.39.2