Mercurial > emacs
comparison lisp/dired.el @ 39325:1bd6b6e5f2bc
(dired-move-to-filename-regexp): Allow one digit in the
numeric month value, and allow the Kanji character after the it to
be missing (happens with ls-lisp's output on Japanese versions of
MS-Windows).
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Tue, 18 Sep 2001 07:11:26 +0000 |
parents | b2fc23ab198a |
children | 7e0db9f5d524 |
comparison
equal
deleted
inserted
replaced
39324:65a3980d9aa3 | 39325:1bd6b6e5f2bc |
---|---|
1513 ;; The purpose is to match a Kanji character. | 1513 ;; The purpose is to match a Kanji character. |
1514 (k "[^\0-\177]") | 1514 (k "[^\0-\177]") |
1515 ;; (k "[^\x00-\x7f\x80-\xff]") | 1515 ;; (k "[^\x00-\x7f\x80-\xff]") |
1516 (s " ") | 1516 (s " ") |
1517 (yyyy "[0-9][0-9][0-9][0-9]") | 1517 (yyyy "[0-9][0-9][0-9][0-9]") |
1518 (mm "[ 0-1][0-9]") | 1518 (mm "[ 0-1]?[0-9]") |
1519 ;;old (dd "[ 0-3][0-9]") | 1519 ;;old (dd "[ 0-3][0-9]") |
1520 (dd "[ 0-3][0-9][.]?") | 1520 (dd "[ 0-3][0-9][.]?") |
1521 (HH:MM "[ 0-2][0-9]:[0-5][0-9]") | 1521 (HH:MM "[ 0-2][0-9]:[0-5][0-9]") |
1522 (seconds "[0-6][0-9]\\([.,][0-9]+\\)?") | 1522 (seconds "[0-6][0-9]\\([.,][0-9]+\\)?") |
1523 (zone "[-+][0-2][0-9][0-5][0-9]") | 1523 (zone "[-+][0-2][0-9][0-5][0-9]") |
1531 s "\\(" HH:MM | 1531 s "\\(" HH:MM |
1532 "\\|" yyyy s s "?" | 1532 "\\|" yyyy s s "?" |
1533 "\\|" s "?" yyyy | 1533 "\\|" s "?" yyyy |
1534 "\\)")) | 1534 "\\)")) |
1535 (japanese | 1535 (japanese |
1536 (concat mm k s dd k "?" s "+" "\\(" HH:MM "\\|" yyyy k "?" "\\)"))) | 1536 (concat mm k "?" s dd k "?" s "+" |
1537 "\\(" HH:MM "\\|" yyyy k "?" "\\)"))) | |
1537 ;; The "[0-9]" below requires the previous column to end in a digit. | 1538 ;; The "[0-9]" below requires the previous column to end in a digit. |
1538 ;; This avoids recognizing `1 may 1997' as a date in the line: | 1539 ;; This avoids recognizing `1 may 1997' as a date in the line: |
1539 ;; -r--r--r-- 1 may 1997 1168 Oct 19 16:49 README | 1540 ;; -r--r--r-- 1 may 1997 1168 Oct 19 16:49 README |
1540 ;; The "[kMGTPEZY]?" below supports "ls -alh" output. | 1541 ;; The "[kMGTPEZY]?" below supports "ls -alh" output. |
1541 ;; The ".*" below finds the last match if there are multiple matches. | 1542 ;; The ".*" below finds the last match if there are multiple matches. |