diff options
-rw-r--r-- | lisp/tar-mode.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 9d0a6d2e6c..4051398e5a 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) )))) |