Mercurial > emacs

diff lisp/tar-mode.el @ 45329:56a080c7a714

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 c9cbe448711d
children eed727396dd0
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)
 		    ))))