# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1021635433 0
# Node ID 56a080c7a714e498515d53e7bf378942fd7bc278
# Parent  cbcc456b9a766f863300627ec8e8ff6e47aecf42
(tar-octal-time): Fix the last argument of logior.

diff -r cbcc456b9a76 -r 56a080c7a714 lisp/tar-mode.el
--- a/lisp/tar-mode.el	Fri May 17 11:24:02 2002 +0000
+++ b/lisp/tar-mode.el	Fri May 17 11:37:13 2002 +0000
@@ -1094,7 +1094,8 @@
   (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)
 		    ))))