(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 b60936ddd7102248d2a19bea32dcffdf43b0c207..e634f91a62416b54863ad3e342c0241d3367347c 100644 (file)
--- 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 9b93db96c27725aa20d3da09e9846c013175ecc7..04c8a3dd6079ddf01e38f71df8f16650abcf11d0 100644 (file)
--- 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)))