comparison lisp/dired.el @ 20271:cda75058a3c0

(dired-move-to-filename-regexp): Allow month names of length 2 and up, with varying white space afterwards; e.g. Solaris 2.6 "es" locale uses "ab" for April and "fbro" for February.

20270:3f3e7319341a

    file))

;;; Functions for finding the file name in a dired buffer line.

(defvar dired-move-to-filename-regexp
   (let* ((l "[A-Za-z\xa0-\xff]")
 	 (k "[^\x00-\xff]")
 	 (s " ")
 	 (yyyy "[0-9][0-9][0-9][0-9]")
 	 (mm "[ 0-1][0-9]")
 	 (dd "[ 0-3][0-9]")
 	 (HH:MM "[ 0-2][0-9]:[0-5][0-9]")
 	 (western (concat "\\(" l l l s dd "\\|" dd s l l l "\\)"
			  s "\\(" HH:MM "\\|" s yyyy "\\)"))
 	 (japanese (concat mm k " " dd k s "\\(" s HH:MM "\\|" yyyy k "\\)")))
     (concat s "\\(" western "\\|" japanese "\\)" s))
  "Regular expression to match a date and time in a directory listing.
The default value is designed to recognize dates and times
regardless of the language.")

(defvar dired-permission-flags-regexp

20271:cda75058a3c0

    file))

;;; Functions for finding the file name in a dired buffer line.

(defvar dired-move-to-filename-regexp
  (let* ((l "[A-Za-z\xa0-\xff]")
	 (k "[^\x00-\xff]")
	 (s " ")
	 (yyyy "[0-9][0-9][0-9][0-9]")
	 (mm "[ 0-1][0-9]")
	 (dd "[ 0-3][0-9]")
	 (HH:MM "[ 0-2][0-9]:[0-5][0-9]")
	 (western (concat "\\(" l l "+ +" dd "\\|" dd s l l "+ *" "\\)"
			  s "\\(" HH:MM "\\|" s yyyy "\\)"))
	 (japanese (concat mm k " " dd k s "\\(" s HH:MM "\\|" yyyy k "\\)")))
    (concat s "\\(" western "\\|" japanese "\\)" s))
  "Regular expression to match a date and time in a directory listing.
The default value is designed to recognize dates and times
regardless of the language.")

(defvar dired-permission-flags-regexp