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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c13fe48a730376b14d78c6e82b00389a8847d551..e100573a22542f3d8f28c4ef602ff44fe147f67b 100644 (file)
--- 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 4ef259dee4b98733fb7c4d69d14d08a67f0efafb..17dbe3fbaf212c80df8b0fc4dc56140de3404cf3 100644 (file)
--- 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