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]")