/[emacs]/emacs/lisp/ls-lisp.el
ViewVC logotype

Diff of /emacs/lisp/ls-lisp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.42 by eliz, Sun Dec 30 17:04:26 2001 UTC revision 1.43 by rms, Mon Sep 9 19:31:40 2002 UTC
# Line 144  Otherwise they are treated as Emacs rege Line 144  Otherwise they are treated as Emacs rege
144    :type 'boolean    :type 'boolean
145    :group 'ls-lisp)    :group 'ls-lisp)
146    
147    (defcustom ls-lisp-format-time-list
148      '("%b %e %H:%M"
149        "%b %e  %Y")
150      "*List of `format-time-string' specs to display file time stamps.
151    They are used whenever a locale is not specified to use instead.
152    
153    Syntax:  (EARLY-TIME-FORMAT OLD-TIME-FORMAT)
154    
155    The EARLY-TIME-FORMAT is used if file has been modified within the
156    current year. The OLD-TIME-FORMAT is used for older files.  To use ISO
157    8601 dates, you could set:
158    
159    \(setq ls-lisp-format-time-list
160           '(\"%Y-%m-%d %H:%M\"
161             \"%Y-%m-%d      \"))"
162      :type  '(list string)
163      :group 'ls-lisp)
164    
165  ;; Remember the original insert-directory function  ;; Remember the original insert-directory function
166  (or (featurep 'ls-lisp)  ; FJW: unless this file is being reloaded!  (or (featurep 'ls-lisp)  ; FJW: unless this file is being reloaded!
167      (fset 'original-insert-directory (symbol-function 'insert-directory)))      (fset 'original-insert-directory (symbol-function 'insert-directory)))
# Line 557  All ls time options, namely c, t and u, Line 575  All ls time options, namely c, t and u,
575                (setq locale nil))                (setq locale nil))
576            (format-time-string            (format-time-string
577             (if (and (<= past-cutoff diff) (<= diff 0))             (if (and (<= past-cutoff diff) (<= diff 0))
578                 (if locale "%m-%d %H:%M" "%b %e %H:%M")                 (if locale "%m-%d %H:%M" (nth 0 ls-lisp-format-time-list))
579               (if locale "%Y-%m-%d " "%b %e  %Y"))               (if locale "%Y-%m-%d " (nth 1 ls-lisp-format-time-list)))
580             time))             time))
581        (error "Unk  0  0000"))))        (error "Unk  0  0000"))))
582    

Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26