aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1998-01-19 20:29:31 +0000
committerRichard M. Stallman1998-01-19 20:29:31 +0000
commit2708e59e80d7fc12b3e9b9785fd29760fe45c197 (patch)
tree5cda0ac08ad02aacb1b26e4369cf0670a65880f2
parent55872f3e06761c4b74773a0dea4775872607bb59 (diff)
downloademacs-2708e59e80d7fc12b3e9b9785fd29760fe45c197.tar.gz
emacs-2708e59e80d7fc12b3e9b9785fd29760fe45c197.zip
(dired-move-to-filename-regexp):
Make l pattern match any non-ASCII char.
-rw-r--r--lisp/dired.el7
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]")