From: Richard M. Stallman Date: Wed, 9 Jul 2003 15:52:59 +0000 (+0000) Subject: (dired-move-to-filename-regexp): Allow quote in months. X-Git-Tag: ttn-vms-21-2-B4~9405 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=60389964c5d004adebbf7f165e9eae38efca481c;p=emacs.git (dired-move-to-filename-regexp): Allow quote in months. --- 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]")