From baae65d918e7f4c1f47057bc4b5f0302c3e47f38 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Fri, 23 Aug 2019 05:44:59 +0200 Subject: [PATCH] Use ISO8601 time formats in tar-mode * lisp/tar-mode.el (tar-clip-time-string): Make obsolete (bug#37130). (tar-header-block-summarize): Use ISO8601 time instead of home-brew format. --- lisp/tar-mode.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 713f3d944bc..95862dec82b 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -450,6 +450,7 @@ checksum before doing the check." (progn (beep) (message "Invalid checksum for file %s!" file-name)))) (defun tar-clip-time-string (time) + (declare (obsolete format-time-string "27.1")) (let ((str (current-time-string time))) (concat " " (substring str 4 16) (format-time-string " %Y" time)))) @@ -508,7 +509,9 @@ MODE should be an integer which is a file mode value." (if (= 0 (length uname)) uid uname) (if (= 0 (length gname)) gid gname) size - (if tar-mode-show-date (tar-clip-time-string time) "") + (if tar-mode-show-date + (format-time-string " %FT%T" time) + "") (propertize name 'mouse-face 'highlight 'help-echo "mouse-2: extract this file into a buffer") -- 2.39.5