4475 |
(forward-word -1) |
(forward-word -1) |
4476 |
(buffer-substring (point) end))))))))) |
(buffer-substring (point) end))))))))) |
4477 |
|
|
4478 |
|
;; The following expression replaces `dired-move-to-filename-regexp'. |
4479 |
|
(defvar directory-listing-before-filename-regexp |
4480 |
|
(let* ((l "\\([A-Za-z]\\|[^\0-\177]\\)") |
4481 |
|
(l-or-quote "\\([A-Za-z']\\|[^\0-\177]\\)") |
4482 |
|
;; In some locales, month abbreviations are as short as 2 letters, |
4483 |
|
;; and they can be followed by ".". |
4484 |
|
;; In Breton, a month name can include a quote character. |
4485 |
|
(month (concat l-or-quote l-or-quote "+\\.?")) |
4486 |
|
(s " ") |
4487 |
|
(yyyy "[0-9][0-9][0-9][0-9]") |
4488 |
|
(dd "[ 0-3][0-9]") |
4489 |
|
(HH:MM "[ 0-2][0-9][:.][0-5][0-9]") |
4490 |
|
(seconds "[0-6][0-9]\\([.,][0-9]+\\)?") |
4491 |
|
(zone "[-+][0-2][0-9][0-5][0-9]") |
4492 |
|
(iso-mm-dd "[01][0-9]-[0-3][0-9]") |
4493 |
|
(iso-time (concat HH:MM "\\(:" seconds "\\( ?" zone "\\)?\\)?")) |
4494 |
|
(iso (concat "\\(\\(" yyyy "-\\)?" iso-mm-dd "[ T]" iso-time |
4495 |
|
"\\|" yyyy "-" iso-mm-dd "\\)")) |
4496 |
|
(western (concat "\\(" month s "+" dd "\\|" dd "\\.?" s month "\\)" |
4497 |
|
s "+" |
4498 |
|
"\\(" HH:MM "\\|" yyyy "\\)")) |
4499 |
|
(western-comma (concat month s "+" dd "," s "+" yyyy)) |
4500 |
|
;; Japanese MS-Windows ls-lisp has one-digit months, and |
4501 |
|
;; omits the Kanji characters after month and day-of-month. |
4502 |
|
;; On Mac OS X 10.3, the date format in East Asian locales is |
4503 |
|
;; day-of-month digits followed by month digits. |
4504 |
|
(mm "[ 0-1]?[0-9]") |
4505 |
|
(east-asian |
4506 |
|
(concat "\\(" mm l "?" s dd l "?" s "+" |
4507 |
|
"\\|" dd s mm s "+" "\\)" |
4508 |
|
"\\(" HH:MM "\\|" yyyy l "?" "\\)"))) |
4509 |
|
;; The "[0-9]" below requires the previous column to end in a digit. |
4510 |
|
;; This avoids recognizing `1 may 1997' as a date in the line: |
4511 |
|
;; -r--r--r-- 1 may 1997 1168 Oct 19 16:49 README |
4512 |
|
|
4513 |
|
;; The "[BkKMGTPEZY]?" below supports "ls -alh" output. |
4514 |
|
;; The ".*" below finds the last match if there are multiple matches. |
4515 |
|
;; This avoids recognizing `jservice 10 1024' as a date in the line: |
4516 |
|
;; drwxr-xr-x 3 jservice 10 1024 Jul 2 1997 esg-host |
4517 |
|
|
4518 |
|
;; vc dired listings provide the state or blanks between file |
4519 |
|
;; permissions and date. The state is always surrounded by |
4520 |
|
;; parantheses: |
4521 |
|
;; -rw-r--r-- (modified) 2005-10-22 21:25 files.el |
4522 |
|
;; This is not supported yet. |
4523 |
|
(concat ".*[0-9][BkKMGTPEZY]?" s |
4524 |
|
"\\(" western "\\|" western-comma "\\|" east-asian "\\|" iso "\\)" |
4525 |
|
s "+")) |
4526 |
|
"Regular expression to match up to the file name in a directory listing. |
4527 |
|
The default value is designed to recognize dates and times |
4528 |
|
regardless of the language.") |
4529 |
|
|
4530 |
(defvar insert-directory-ls-version 'unknown) |
(defvar insert-directory-ls-version 'unknown) |
4531 |
|
|