(dired-move-to-filename-regexp): Allow quote in months.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/dired.el b/lisp/dired.el
index 78826a14657..e01299f5eba 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1565,9 +1565,11 @@ DIR must be a directory name, not a file name."
 
 (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]")