Make diary-european-date-forms elements mutually exclusive

* lisp/calendar/calendar.el (diary-european-date-forms): Make the
elements mutually exclusive (bug#13536).

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 14604a673d091dafff188f230f3c5cdee746cfff..e7a7bd47d611bc49b0135fe7621f8e532c770775 100644 (file)
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -799,7 +799,7 @@ but `diary-date-forms' (which see)."
   '((day "/" month "[^/0-9]")
     (day "/" month "/" year "[^0-9]")
     (backup day " *" monthname "\\W+\\<\\([^*0-9]\\|\\([0-9]+[:aApP]\\)\\)")
-    (day " *" monthname " *" year "[^0-9]")
+    (day " *" monthname " *" year "[^0-9:aApP]")
     (dayname "\\W"))
   "List of pseudo-patterns describing the European style of dates.
 The defaults are: DAY/MONTH; DAY/MONTH/YEAR; DAY MONTHNAME;