diff options
| author | Richard M. Stallman | 1998-01-19 20:29:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-01-19 20:29:31 +0000 |
| commit | 2708e59e80d7fc12b3e9b9785fd29760fe45c197 (patch) | |
| tree | 5cda0ac08ad02aacb1b26e4369cf0670a65880f2 | |
| parent | 55872f3e06761c4b74773a0dea4775872607bb59 (diff) | |
| download | emacs-2708e59e80d7fc12b3e9b9785fd29760fe45c197.tar.gz emacs-2708e59e80d7fc12b3e9b9785fd29760fe45c197.zip | |
(dired-move-to-filename-regexp):
Make l pattern match any non-ASCII char.
| -rw-r--r-- | lisp/dired.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index b69bd24f517..6c37eccfb9e 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -1351,13 +1351,14 @@ DIR must be a directory name, not a file name." | |||
| 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]") |