# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1021751105 0
# Node ID eed727396dd078fc90cae8ae4fcef8fcec1585c2
# Parent  d80cadecae74bfd6e0aa786c4674143d8c37c2dd
(tar-octal-time): Fix last change.

diff -r d80cadecae74 -r eed727396dd0 lisp/tar-mode.el
--- a/lisp/tar-mode.el	Sat May 18 19:19:18 2002 +0000
+++ b/lisp/tar-mode.el	Sat May 18 19:45:05 2002 +0000
@@ -1092,12 +1092,12 @@
 (defun tar-octal-time (timeval)
   ;; Format a timestamp as 11 octal digits.  Ghod, I hope this works...
   (let ((hibits (car timeval)) (lobits (car (cdr timeval))))
-    (insert (format "%05o%01o%05o"
-		    (lsh hibits -2)
-		    (logior (lsh (logand 3 hibits) 1)
-			    (if (> (logand lobits 32768) 0) 1 0))
-		    (logand 32767 lobits)
-		    ))))
+    (format "%05o%01o%05o"
+	    (lsh hibits -2)
+	    (logior (lsh (logand 3 hibits) 1)
+		    (if (> (logand lobits 32768) 0) 1 0))
+	    (logand 32767 lobits)
+	    )))
 
 (defun tar-subfile-save-buffer ()
   "In tar subfile mode, save this buffer into its parent tar-file buffer.