From: Michael Albinus Date: Thu, 20 Oct 2005 20:08:19 +0000 (+0000) Subject: * net/ange-ftp.el (ange-ftp-date-regexp): Handle also the case no X-Git-Tag: emacs-pretest-22.0.90~6454 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6e967b19b675b62f12d1061f8aa0ef3032dfb6fa;p=emacs.git * net/ange-ftp.el (ange-ftp-date-regexp): Handle also the case no group id is given. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c427ce64966..00c80f4e65e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-10-20 Michael Albinus + + * net/ange-ftp.el (ange-ftp-date-regexp): Handle also the case no + group id is given. + 2005-10-20 Romain Francoise * net/rcirc.el (with-rcirc-process-buffer): Move above its first user. diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index bf3b1427ac2..f50ca07a488 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -2686,7 +2686,12 @@ away in the internal cache." ;; Require the previous column to end in a digit. ;; This avoids recognizing `1 may 1997' as a date in the line: ;; -r--r--r-- 1 may 1997 1168 Oct 19 16:49 README - (concat "[0-9]" s "\\(" western "\\|" japanese "\\)" s)) + ;; albinus: + ;; Require also the following column to start in a digit. + ;; This avoids recognizing `kfs 10' as a date in the line: + ;; -rw------- 1 kfs 10 May 27 2003 .autorun.lck +;; (concat "[0-9]" s "\\(" western "\\|" japanese "\\)" s)) + (concat "[0-9]" s "\\(" western "\\|" japanese "\\)" s "+[0-9]")) "Regular expression to match up to the column before the file name in a directory listing. This regular expression is designed to recognize dates regardless of the language.")