[Emacs-diffs] Changes to emacs/lisp/net/ange-ftp.el

[Michael Albinus]

Index: emacs/lisp/net/ange-ftp.el
diff -c emacs/lisp/net/ange-ftp.el:1.77 emacs/lisp/net/ange-ftp.el:1.78
*** emacs/lisp/net/ange-ftp.el:1.77     Tue Oct  4 00:20:26 2005
--- emacs/lisp/net/ange-ftp.el  Thu Oct 20 20:08:19 2005
***************
*** 2686,2692 ****
         ;; 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))
    "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.")
--- 2686,2697 ----
         ;; 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
!        ;; 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.")