From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 7 Feb 1999 22:44:43 +0000 (+0000)
Subject: (appt-make-list): Don't splice quotes and date onto message.
X-Git-Tag: emacs-20.4~675
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4d24213703a612dad8a7deef3db57e2f049705e6;p=emacs.git

(appt-make-list): Don't splice quotes and date onto message.
---

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\\)?.*"