# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 933553970 0
# Node ID 4c873bb645d8e0d6cd35a5e57c18765bae6eb655
# Parent  fc8435c2ae0e3db78a3c3fb2bedd23e8e9825afa
(european-date-diary-pattern): Fix pattern so it
does not interpret a time as the year in a day-month entry.

diff -r fc8435c2ae0e -r 4c873bb645d8 lisp/calendar/calendar.el
--- a/lisp/calendar/calendar.el	Mon Aug 02 00:10:19 1999 +0000
+++ b/lisp/calendar/calendar.el	Mon Aug 02 00:32:50 1999 +0000
@@ -518,7 +518,7 @@
 (defcustom european-date-diary-pattern
   '((day "/" month "[^/0-9]")
     (day "/" month "/" year "[^0-9]")
-    (backup day " *" monthname "\\W+\\<[^*0-9]")
+    (backup day " *" monthname "\\W+\\<\\([^*0-9]\\|\\([0-9]+[:aApP]\\)\\)")
     (day " *" monthname " *" year "[^0-9]")
     (dayname "\\W"))
   "*List of pseudo-patterns describing the European patterns of date used.