(tar-octal-time): Fix the last argument of logior.

Remove the call to insert.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d1798fb7d7cf874b273eab43181325c8b6e58c8d..fb379cd176356d00eb8d120f0ae4adf08022e2fd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-18  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * tar-mode.el (tar-octal-time): Fix the last argument of logior.
+       Remove the call to insert.
+
 2002-05-15  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * emacs-lisp/easymenu.el (easy-menu-add): Doc fix.

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 4c89f9b4cafe02f4101a5ab0f4af7f1a6e62eca0..f9531544453dadc60fede45bd8ffab25aa94c89c 100644 (file)
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -1079,11 +1079,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) (> (logand lobits 32768) 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.