Commit 534405a1 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

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

parent b72f3bcb
......@@ -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)
))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment