Mercurial > emacs
comparison lisp/dired.el @ 20271:cda75058a3c0
(dired-move-to-filename-regexp):
Allow month names of length 2 and up,
with varying white space afterwards; e.g. Solaris 2.6 "es" locale
uses "ab" for April and "fbro" for February.
author | Paul Eggert <eggert@twinsun.com> |
---|---|
date | Mon, 17 Nov 1997 18:55:46 +0000 |
parents | 854a9bdef74f |
children | 3a76b48c399d |
comparison
equal
deleted
inserted
replaced
20270:3f3e7319341a | 20271:cda75058a3c0 |
---|---|
1349 file)) | 1349 file)) |
1350 | 1350 |
1351 ;;; Functions for finding the file name in a dired buffer line. | 1351 ;;; Functions for finding the file name in a dired buffer line. |
1352 | 1352 |
1353 (defvar dired-move-to-filename-regexp | 1353 (defvar dired-move-to-filename-regexp |
1354 (let* ((l "[A-Za-z\xa0-\xff]") | 1354 (let* ((l "[A-Za-z\xa0-\xff]") |
1355 (k "[^\x00-\xff]") | 1355 (k "[^\x00-\xff]") |
1356 (s " ") | 1356 (s " ") |
1357 (yyyy "[0-9][0-9][0-9][0-9]") | 1357 (yyyy "[0-9][0-9][0-9][0-9]") |
1358 (mm "[ 0-1][0-9]") | 1358 (mm "[ 0-1][0-9]") |
1359 (dd "[ 0-3][0-9]") | 1359 (dd "[ 0-3][0-9]") |
1360 (HH:MM "[ 0-2][0-9]:[0-5][0-9]") | 1360 (HH:MM "[ 0-2][0-9]:[0-5][0-9]") |
1361 (western (concat "\\(" l l l s dd "\\|" dd s l l l "\\)" | 1361 (western (concat "\\(" l l "+ +" dd "\\|" dd s l l "+ *" "\\)" |
1362 s "\\(" HH:MM "\\|" s yyyy "\\)")) | 1362 s "\\(" HH:MM "\\|" s yyyy "\\)")) |
1363 (japanese (concat mm k " " dd k s "\\(" s HH:MM "\\|" yyyy k "\\)"))) | 1363 (japanese (concat mm k " " dd k s "\\(" s HH:MM "\\|" yyyy k "\\)"))) |
1364 (concat s "\\(" western "\\|" japanese "\\)" s)) | 1364 (concat s "\\(" western "\\|" japanese "\\)" s)) |
1365 "Regular expression to match a date and time in a directory listing. | 1365 "Regular expression to match a date and time in a directory listing. |
1366 The default value is designed to recognize dates and times | 1366 The default value is designed to recognize dates and times |
1367 regardless of the language.") | 1367 regardless of the language.") |
1368 | 1368 |
1369 (defvar dired-permission-flags-regexp | 1369 (defvar dired-permission-flags-regexp |