(appt-make-list): Match all lines of entry.

From "Stefan M. Walther (SMW)" <walther@netz.klinik.uni-mainz.de>

(appt-make-list): Match all lines of entry.
From "Stefan M. Walther (SMW)" <walther@netz.klinik.uni-mainz.de>
dae6cb9f · Dave Love · a198aa54 · dae6cb9f · dae6cb9f
Commit dae6cb9f authored May 18, 2000 by Dave Love
Hide whitespace changes
Inline Side-by-side

Showing with 9 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +8 -0

lisp/calendar/appt.el lisp/calendar/appt.el +1 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+2000-05-18  Dave Love  <fx@gnu.org>
+
+	* info.el (Info-fontify-node): Add intangible property as well as
+	invisible.
+
+	* calendar/appt.el (appt-make-list): Match all lines of entry.
+	From "Stefan M. Walther (SMW)" <walther@netz.klinik.uni-mainz.de>
+
 2000-05-18  Kenichi Handa  <handa@etl.go.jp>

 	* international/mule-diag.el (describe-char-after): Call

--- a/lisp/calendar/appt.el
+++ b/lisp/calendar/appt.el
@@ -526,7 +526,7 @@ They specify the range of dates that the diary is being processed for."
 					       (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)))