From: Dave Love <fx@gnu.org>
Date: Thu, 18 May 2000 13:12:08 +0000 (+0000)
Subject: (appt-make-list): Match all lines of entry.
X-Git-Tag: emacs-pretest-21.0.90~3915
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dae6cb9fe9067aeeeac317287e2410ae02af538f;p=emacs.git

(appt-make-list): Match all lines of entry.
From "Stefan M. Walther (SMW)" <walther@netz.klinik.uni-mainz.de>
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b60936ddd71..e634f91a624 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+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
diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el
index 9b93db96c27..04c8a3dd607 100644
--- 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)))