diff options
| author | Richard M. Stallman <rms@gnu.org> | 2003-07-09 15:52:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2003-07-09 15:52:59 +0000 |
| commit | 60389964c5d004adebbf7f165e9eae38efca481c (patch) | |
| tree | 652ed01b73d792fff264c3c8d8b399acc04bb52c /lisp/dired.el | |
| parent | 2410d73a13c00d0f1c0cfb3b1ef21a837a9100e3 (diff) | |
| download | emacs-60389964c5d004adebbf7f165e9eae38efca481c.tar.gz | |
(dired-move-to-filename-regexp): Allow quote in months.
Diffstat (limited to 'lisp/dired.el')
| -rw-r--r-- | lisp/dired.el | 4 |
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]") |