Commit 50f53db3 authored by Karl Heuer's avatar Karl Heuer
Browse files

(appt-make-list): Fix previous change.

parent 2de3834b
......@@ -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
(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\\)?.*"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment