Fix Bug#44289

* lisp/files.el (directory-listing-before-filename-regexp):
Support DD-MMM-YYYY format.  (Bug#44289)

diff --git a/lisp/files.el b/lisp/files.el
index fdf758ad927180b5da9720c4eb738c12f3b6c112..59bcc3e8a780d8f3fde1c8da74927cffc46a52bc 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -6954,6 +6954,9 @@ If DIR's free space cannot be obtained, this function returns nil."
                          s "+"
                          "\\(" HH:MM "\\|" yyyy "\\)"))
         (western-comma (concat month s "+" dd "," s "+" yyyy))
+         ;; This represents the date in strftime(3) format "%e-%b-%Y"
+         ;; (aka "%v"), as it is the default for many ls incarnations.
+         (DD-MMM-YYYY (concat dd "-" month "-" yyyy s HH:MM))
         ;; Japanese MS-Windows ls-lisp has one-digit months, and
         ;; omits the Kanji characters after month and day-of-month.
         ;; On Mac OS X 10.3, the date format in East Asian locales is
@@ -6981,7 +6984,8 @@ If DIR's free space cannot be obtained, this function returns nil."
          ;; This is not supported yet.
     (purecopy (concat "\\([0-9][BkKMGTPEZY]? " iso
                      "\\|.*[0-9][BkKMGTPEZY]? "
-                     "\\(" western "\\|" western-comma "\\|" east-asian "\\)"
+                     "\\(" western "\\|" western-comma
+                      "\\|" DD-MMM-YYYY "\\|" east-asian "\\)"
                      "\\) +")))
   "Regular expression to match up to the file name in a directory listing.
 The default value is designed to recognize dates and times