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.

1 files changed, 4 insertions, 1 deletions

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")