Mercurial > emacs
changeset 45329:56a080c7a714
(tar-octal-time): Fix the last argument of logior.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Fri, 17 May 2002 11:37:13 +0000 |
| parents | cbcc456b9a76 |
| children | 28c55da68de5 |
| files | lisp/tar-mode.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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) ))))