# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 921647767 0
# Node ID 8cc1b3739d56b5fe62e33c5155aea092ffa093d9
# Parent  46906de4c9688a02fe2b8ee267a28c817e14d353
(appt-make-list): Fix previous change.

diff -r 46906de4c968 -r 8cc1b3739d56 lisp/calendar/appt.el
--- a/lisp/calendar/appt.el	Wed Mar 17 04:49:21 1999 +0000
+++ b/lisp/calendar/appt.el	Wed Mar 17 05:16:07 1999 +0000
@@ -525,7 +525,7 @@
 			  (calendar-date-equal 
 			   (calendar-current-date) (car (car entry-list))))
 		(let ((time-string (substring (prin1-to-string 
-					       (cadr (car entry-list))) 2 -1)))
+					       (cadr (car entry-list))) 1 -1)))
 
 		  (while (string-match
 			  "[0-9]?[0-9]:[0-9][0-9]\\(am\\|pm\\)?.*"