Mercurial > emacs
changeset 47329:4bc33b241589
(ls-lisp-format-time-list): New variable.
(ls-lisp-format-time): Use it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 09 Sep 2002 19:31:40 +0000 |
| parents | ac7145660745 |
| children | 022e71eb81ad |
| files | lisp/ls-lisp.el |
| diffstat | 1 files changed, 20 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ls-lisp.el Mon Sep 09 19:26:40 2002 +0000 +++ b/lisp/ls-lisp.el Mon Sep 09 19:31:40 2002 +0000 @@ -144,6 +144,24 @@ :type 'boolean :group 'ls-lisp) +(defcustom ls-lisp-format-time-list + '("%b %e %H:%M" + "%b %e %Y") + "*List of `format-time-string' specs to display file time stamps. +They are used whenever a locale is not specified to use instead. + +Syntax: (EARLY-TIME-FORMAT OLD-TIME-FORMAT) + +The EARLY-TIME-FORMAT is used if file has been modified within the +current year. The OLD-TIME-FORMAT is used for older files. To use ISO +8601 dates, you could set: + +\(setq ls-lisp-format-time-list + '(\"%Y-%m-%d %H:%M\" + \"%Y-%m-%d \"))" + :type '(list string) + :group 'ls-lisp) + ;; Remember the original insert-directory function (or (featurep 'ls-lisp) ; FJW: unless this file is being reloaded! (fset 'original-insert-directory (symbol-function 'insert-directory))) @@ -557,8 +575,8 @@ (setq locale nil)) (format-time-string (if (and (<= past-cutoff diff) (<= diff 0)) - (if locale "%m-%d %H:%M" "%b %e %H:%M") - (if locale "%Y-%m-%d " "%b %e %Y")) + (if locale "%m-%d %H:%M" (nth 0 ls-lisp-format-time-list)) + (if locale "%Y-%m-%d " (nth 1 ls-lisp-format-time-list))) time)) (error "Unk 0 0000"))))