procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Eli Zaretskii 2002-05-17 11:37:13 +00:00
parent b72f3bcb37
commit 534405a194
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/tar-mode.el
View file

@ -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)
))))