diff options
| -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." | |||
| 1565 | 1565 | ||
| 1566 | (defvar dired-move-to-filename-regexp | 1566 | (defvar dired-move-to-filename-regexp |
| 1567 | (let* ((l "\\([A-Za-z]\\|[^\0-\177]\\)") | 1567 | (let* ((l "\\([A-Za-z]\\|[^\0-\177]\\)") |
| 1568 | (l-or-quote "\\([A-Za-z']\\|[^\0-\177]\\)") | ||
| 1568 | ;; In some locales, month abbreviations are as short as 2 letters, | 1569 | ;; In some locales, month abbreviations are as short as 2 letters, |
| 1569 | ;; and they can be followed by ".". | 1570 | ;; and they can be followed by ".". |
| 1570 | (month (concat l l "+\\.?")) | 1571 | ;; In Breton, a month name can include a quote character. |
| 1572 | (month (concat l-or-quote l-or-quote "+\\.?")) | ||
| 1571 | (s " ") | 1573 | (s " ") |
| 1572 | (yyyy "[0-9][0-9][0-9][0-9]") | 1574 | (yyyy "[0-9][0-9][0-9][0-9]") |
| 1573 | (dd "[ 0-3][0-9]") | 1575 | (dd "[ 0-3][0-9]") |