(tar-octal-time): Fix last change.

2 files changed, 10 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4550a580f51..5c8ed7f7413 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-05-18  Eli Zaretskii  <eliz@is.elta.co.il>
+
+        * tar-mode.el (tar-octal-time): Fix last change.
+
 2002-05-18  Markus Rost  <rost@math.ohio-state.edu>
 
         * mail/emacsbug.el (report-emacs-bug-text-prompt): New variable.
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 4051398e5af..400dbdad134 100644
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -1092,12 +1092,12 @@ for this to be permanent."
 (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.