From 60389964c5d004adebbf7f165e9eae38efca481c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 9 Jul 2003 15:52:59 +0000 Subject: [PATCH] (dired-move-to-filename-regexp): Allow quote in months. --- lisp/dired.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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]") -- 2.39.2