mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

(ls-lisp-format-time-list): New variable.

Browse Source 
(ls-lisp-format-time): Use it.
This commit is contained in:
Richard M. Stallman 2002-09-09 19:31:40 +00:00
parent 2285bf9df7
commit 2686cdc0d0
1 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lisp/ls-lisp.el
View File

@ -144,6 +144,24 @@ Otherwise they are treated as Emacs regexps (for backward compatibility)."
: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 @@ All ls time options, namely c, t and u, are handled."
(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"))))