Mercurial > emacs
changeset 66256:eca72eb609b8
* net/ange-ftp.el (ange-ftp-date-regexp): Handle also the case no
group id is given.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Thu, 20 Oct 2005 20:08:19 +0000 |
| parents | 9cf3996bb877 |
| children | 1cc677a1a0c2 |
| files | lisp/ChangeLog lisp/net/ange-ftp.el |
| diffstat | 2 files changed, 11 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Oct 20 19:43:44 2005 +0000 +++ b/lisp/ChangeLog Thu Oct 20 20:08:19 2005 +0000 @@ -1,3 +1,8 @@ +2005-10-20 Michael Albinus <michael.albinus@gmx.de> + + * net/ange-ftp.el (ange-ftp-date-regexp): Handle also the case no + group id is given. + 2005-10-20 Romain Francoise <romain@orebokech.com> * net/rcirc.el (with-rcirc-process-buffer): Move above its first user.
--- a/lisp/net/ange-ftp.el Thu Oct 20 19:43:44 2005 +0000 +++ b/lisp/net/ange-ftp.el Thu Oct 20 20:08:19 2005 +0000 @@ -2686,7 +2686,12 @@ ;; 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.")