# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1057765979 0
# Node ID 81601d0477e121163928042ecdf8f9f964f34a6f
# Parent  7e28afbbaec04f811a6ac35a2f48e161fa1243c9
(dired-move-to-filename-regexp): Allow quote in months.

diff -r 7e28afbbaec0 -r 81601d0477e1 lisp/dired.el
--- a/lisp/dired.el	Wed Jul 09 15:10:47 2003 +0000
+++ b/lisp/dired.el	Wed Jul 09 15:52:59 2003 +0000
@@ -1565,9 +1565,11 @@
 
 (defvar dired-move-to-filename-regexp
   (let* ((l "\\([A-Za-z]\\|[^\0-\177]\\)")
+	 (l-or-quote "\\([A-Za-z']\\|[^\0-\177]\\)")
 	 ;; In some locales, month abbreviations are as short as 2 letters,
 	 ;; and they can be followed by ".".
-	 (month (concat l l "+\\.?"))
+	 ;; In Breton, a month name  can include a quote character.
+	 (month (concat l-or-quote l-or-quote "+\\.?"))
 	 (s " ")
 	 (yyyy "[0-9][0-9][0-9][0-9]")
 	 (dd "[ 0-3][0-9]")