[Emacs-diffs] /srv/bzr/emacs/trunk r104768: * eshell/em-ls.el: Display `ls -l' dates in ISO format (Bug#8440).

[Chong Yidong]

------------------------------------------------------------
revno: 104768
author: Jari Aalto <address@hidden>
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Mon 2011-06-27 17:47:39 -0400
message:
  * eshell/em-ls.el: Display `ls -l' dates in ISO format (Bug#8440).
  (eshell-ls-date-format): New defcustom.
  (eshell-ls-file): Use it.
modified:
  lisp/ChangeLog
  lisp/eshell/em-ls.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-06-27 21:39:03 +0000
+++ b/lisp/ChangeLog    2011-06-27 21:47:39 +0000
@@ -1,3 +1,9 @@
+2011-06-27  Jari Aalto  <address@hidden>
+
+       * 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  <address@hidden>
 
        * help-fns.el (describe-variable): Fix message for terminal-local vars.

=== modified file 'lisp/eshell/em-ls.el'
--- a/lisp/eshell/em-ls.el      2011-03-05 03:53:41 +0000
+++ b/lisp/eshell/em-ls.el      2011-06-27 21:47:39 +0000
@@ -57,6 +57,13 @@
   :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 @@
                    str))
                " " (format-time-string
                     (concat
-                     "%b %e "
+                     eshell-ls-date-format " "
                      (if (= (nth 5 (decode-time (current-time)))
                             (nth 5 (decode-time
                                     (nth (cond