From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 18 May 2002 19:49:22 +0000 (+0000)
Subject: (tar-octal-time): Fix the last argument of logior.
X-Git-Tag: emacs-pretest-21.2.91~263
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e714aeeb61834c89dfbf6a84e52175ec4779dceb;p=emacs.git

(tar-octal-time): Fix the last argument of logior.
Remove the call to insert.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d1798fb7d7c..fb379cd1763 100644
--- 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 4c89f9b4caf..f9531544453 100644
--- 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.