Mercurial > emacs
comparison lisp/dired.el @ 20684:bc06250acf07
(dired-move-to-filename-regexp):
Make l pattern match any non-ASCII char.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 19 Jan 1998 20:29:31 +0000 |
parents | d56e496c7790 |
children | f3f9df46d008 |
comparison
equal
deleted
inserted
replaced
20683:5623c78a31e5 | 20684:bc06250acf07 |
---|---|
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]\\|[^\0-\177]\\)") |
1355 ;; In some locales, month abbreviations are as short as 2 letters, | 1355 ;; In some locales, month abbreviations are as short as 2 letters, |
1356 ;; and they can be padded on the right with spaces. | 1356 ;; and they can be padded on the right with spaces. |
1357 (month (concat l l "+ *")) | 1357 (month (concat l l "+ *")) |
1358 ;; Recognize any non-ISO-8859 character. | 1358 ;; Recognize any non-ASCII character. |
1359 ;; The purpose is to match a Kanji character. | 1359 ;; The purpose is to match a Kanji character. |
1360 (k "[^\x00-\xff]") | 1360 (k "[^\0-\177]") |
1361 ;; (k "[^\x00-\x7f\x80-\xff]") | |
1361 (s " ") | 1362 (s " ") |
1362 (yyyy "[0-9][0-9][0-9][0-9]") | 1363 (yyyy "[0-9][0-9][0-9][0-9]") |
1363 (mm "[ 0-1][0-9]") | 1364 (mm "[ 0-1][0-9]") |
1364 (dd "[ 0-3][0-9]") | 1365 (dd "[ 0-3][0-9]") |
1365 (HH:MM "[ 0-2][0-9]:[0-5][0-9]") | 1366 (HH:MM "[ 0-2][0-9]:[0-5][0-9]") |