From 534405a194c1f587e0353f1645bf6de5fad90945 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 17 May 2002 11:37:13 +0000 Subject: [PATCH] (tar-octal-time): Fix the last argument of logior. --- lisp/tar-mode.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 9d0a6d2e6c9..4051398e5af 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -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) )))) -- 2.39.5