procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ls-lisp-use-localized-time-format): New defcustom.

Browse source 
(ls-lisp-format-time-list): Doc fix.  Mention ls-lisp-use-localized-time-format.
(ls-lisp-format-time): Use ls-lisp-format-time-list if
ls-lisp-use-localized-time-format is non-nil, even if a valid locale is defined.
This commit is contained in:
Eli Zaretskii 2007-01-27 13:21:19 +00:00
parent bfe6997213
commit ea88e7752e
1 changed files with 19 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lisp/ls-lisp.el
View file

@ -151,7 +151,10 @@ Otherwise they are treated as Emacs regexps (for backward compatibility)."
'("%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.
These specs are used ONLY if a valid locale can not be determined.
If `ls-lisp-use-localized-time-format' is non-nil, these specs are used
regardless of whether the locale can be determined.
Syntax: (EARLY-TIME-FORMAT OLD-TIME-FORMAT)
@ -166,6 +169,15 @@ current year. The OLD-TIME-FORMAT is used for older files. To use ISO
(string :tag "Old time format"))
:group 'ls-lisp)
(defcustom ls-lisp-use-localized-time-format nil
"*Non-nil causes ls-lisp to use `ls-lisp-format-time-list' even if
a valid locale is specified.
WARNING: Using localized date/time format might cause Dired columns
to fail to lign up, e.g. if month names are not all of the same length."
:type 'boolean
:group 'ls-lisp)
(defvar original-insert-directory nil
"This holds the original function definition of `insert-directory'.")
@ -567,8 +579,12 @@ 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" (nth 0 ls-lisp-format-time-list))
(if locale "%Y-%m-%d " (nth 1 ls-lisp-format-time-list)))
(if (and locale (not ls-lisp-use-localized-time-format))
"%m-%d %H:%M"
(nth 0 ls-lisp-format-time-list))
(if (and locale (not ls-lisp-use-localized-time-format))
"%Y-%m-%d "
(nth 1 ls-lisp-format-time-list)))
time))
(error "Unk 0 0000"))))