From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 17 May 2002 11:37:13 +0000 (+0000)
Subject: (tar-octal-time): Fix the last argument of logior.
X-Git-Tag: ttn-vms-21-2-B4~15027
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=534405a194c1f587e0353f1645bf6de5fad90945;p=emacs.git

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

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 9d0a6d2e6c9..4051398e5af 100644
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -1094,7 +1094,8 @@ for this to be permanent."
   (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))
+		    (logior (lsh (logand 3 hibits) 1)
+			    (if (> (logand lobits 32768) 0) 1 0))
 		    (logand 32767 lobits)
 		    ))))