/[emacs]/emacs/lisp/files.el
ViewVC logotype

Diff of /emacs/lisp/files.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.791 by rms, Sat Oct 22 15:34:37 2005 UTC revision 1.792 by albinus, Sun Oct 23 12:17:27 2005 UTC
# Line 4475  program specified by `directory-free-spa Line 4475  program specified by `directory-free-spa
4475                    (forward-word -1)                    (forward-word -1)
4476                    (buffer-substring (point) end)))))))))                    (buffer-substring (point) end)))))))))
4477    
4478    ;; The following expression replaces `dired-move-to-filename-regexp'.
4479    (defvar directory-listing-before-filename-regexp
4480      (let* ((l "\\([A-Za-z]\\|[^\0-\177]\\)")
4481             (l-or-quote "\\([A-Za-z']\\|[^\0-\177]\\)")
4482             ;; In some locales, month abbreviations are as short as 2 letters,
4483             ;; and they can be followed by ".".
4484             ;; In Breton, a month name  can include a quote character.
4485             (month (concat l-or-quote l-or-quote "+\\.?"))
4486             (s " ")
4487             (yyyy "[0-9][0-9][0-9][0-9]")
4488             (dd "[ 0-3][0-9]")
4489             (HH:MM "[ 0-2][0-9][:.][0-5][0-9]")
4490             (seconds "[0-6][0-9]\\([.,][0-9]+\\)?")
4491             (zone "[-+][0-2][0-9][0-5][0-9]")
4492             (iso-mm-dd "[01][0-9]-[0-3][0-9]")
4493             (iso-time (concat HH:MM "\\(:" seconds "\\( ?" zone "\\)?\\)?"))
4494             (iso (concat "\\(\\(" yyyy "-\\)?" iso-mm-dd "[ T]" iso-time
4495                          "\\|" yyyy "-" iso-mm-dd "\\)"))
4496             (western (concat "\\(" month s "+" dd "\\|" dd "\\.?" s month "\\)"
4497                              s "+"
4498                              "\\(" HH:MM "\\|" yyyy "\\)"))
4499             (western-comma (concat month s "+" dd "," s "+" yyyy))
4500             ;; Japanese MS-Windows ls-lisp has one-digit months, and
4501             ;; omits the Kanji characters after month and day-of-month.
4502             ;; On Mac OS X 10.3, the date format in East Asian locales is
4503             ;; day-of-month digits followed by month digits.
4504             (mm "[ 0-1]?[0-9]")
4505             (east-asian
4506              (concat "\\(" mm l "?" s dd l "?" s "+"
4507                      "\\|" dd s mm s "+" "\\)"
4508                      "\\(" HH:MM "\\|" yyyy l "?" "\\)")))
4509             ;; The "[0-9]" below requires the previous column to end in a digit.
4510             ;; This avoids recognizing `1 may 1997' as a date in the line:
4511             ;; -r--r--r--   1 may      1997        1168 Oct 19 16:49 README
4512    
4513             ;; The "[BkKMGTPEZY]?" below supports "ls -alh" output.
4514             ;; The ".*" below finds the last match if there are multiple matches.
4515             ;; This avoids recognizing `jservice  10  1024' as a date in the line:
4516             ;; drwxr-xr-x  3 jservice  10  1024 Jul  2  1997 esg-host
4517    
4518             ;; vc dired listings provide the state or blanks between file
4519             ;; permissions and date.  The state is always surrounded by
4520             ;; parantheses:
4521             ;; -rw-r--r-- (modified) 2005-10-22 21:25 files.el
4522             ;; This is not supported yet.
4523        (concat ".*[0-9][BkKMGTPEZY]?" s
4524                "\\(" western "\\|" western-comma "\\|" east-asian "\\|" iso "\\)"
4525                s "+"))
4526      "Regular expression to match up to the file name in a directory listing.
4527    The default value is designed to recognize dates and times
4528    regardless of the language.")
4529    
4530  (defvar insert-directory-ls-version 'unknown)  (defvar insert-directory-ls-version 'unknown)
4531    

Legend:
Removed from v.1.791  
changed lines
  Added in v.1.792

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26