* eshell/em-ls.el: Display `ls -l' dates in ISO format (Bug#8440).

(eshell-ls-date-format): New defcustom.
(eshell-ls-file): Use it.

2 files changed, 14 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c13fe48a730..e100573a225 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2011-06-27  Jari Aalto  <jari.aalto@cante.net>
+
+        * eshell/em-ls.el: Display `ls -l' dates in ISO format (Bug#8440).
+        (eshell-ls-date-format): New defcustom.
+        (eshell-ls-file): Use it.
+
 2011-06-27  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * help-fns.el (describe-variable): Fix message for terminal-local vars.
diff --git a/lisp/eshell/em-ls.el b/lisp/eshell/em-ls.el
index 4ef259dee4b..17dbe3fbaf2 100644
--- a/lisp/eshell/em-ls.el
+++ b/lisp/eshell/em-ls.el
@@ -57,6 +57,13 @@ properties to colorize its output based on the setting of
   :type 'hook
   :group 'eshell-ls)
 
+(defcustom eshell-ls-date-format "%Y-%m-%d"
+  "How to display time information in `eshell-ls-file'.
+This is passed to `format-time-string' as a format string.
+To display the date using the current locale, use \"%b \%e\"."
+  :type 'string
+  :group 'eshell-ls)
+
 (defcustom eshell-ls-initial-args nil
   "If non-nil, this list of args is included before any call to `ls'.
 This is useful for enabling human-readable format (-h), for example."
@@ -508,7 +515,7 @@ whose cdr is the list of file attributes."
                     str))
                 " " (format-time-string
                      (concat
-                      "%b %e "
+                      eshell-ls-date-format " "
                       (if (= (nth 5 (decode-time (current-time)))
                              (nth 5 (decode-time
                                      (nth (cond