changeset 28968:e6327d3d1115

(appt-make-list): Match all lines of entry. From "Stefan M. Walther (SMW)" <walther@netz.klinik.uni-mainz.de>
author Dave Love <fx@gnu.org>
date Thu, 18 May 2000 13:09:42 +0000
parents 05c01c4206d8
children 84cb017dca64
files lisp/calendar/appt.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/appt.el	Thu May 18 13:07:26 2000 +0000
+++ b/lisp/calendar/appt.el	Thu May 18 13:09:42 2000 +0000
@@ -526,7 +526,7 @@
 					       (cadr (car entry-list))) 1 -1)))
 
 		  (while (string-match
-			  "[0-9]?[0-9]:[0-9][0-9]\\(am\\|pm\\)?.*" 
+			  "[0-9]?[0-9]:[0-9][0-9]\\(am\\|pm\\)?\\(.*\n\\)*.*"
 			  time-string)
 		    (let* ((appt-time-string (match-string 0 time-string)))