diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2002-05-17 11:37:13 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2002-05-17 11:37:13 +0000 |
| commit | 534405a194c1f587e0353f1645bf6de5fad90945 (patch) | |
| tree | dffbb3459faced78dbccdc957ddd106ab6459c52 /lisp/tar-mode.el | |
| parent | b72f3bcb37812e85616dbdd835231a36f0a4d054 (diff) | |
| download | emacs-534405a194c1f587e0353f1645bf6de5fad90945.tar.gz | |
(tar-octal-time): Fix the last argument of logior.
Diffstat (limited to 'lisp/tar-mode.el')
| -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 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) )))) |