[Emacs-diffs] Changes to emacs/lisp/tar-mode.el

[Eli Zaretskii]

Index: emacs/lisp/tar-mode.el
diff -c emacs/lisp/tar-mode.el:1.86 emacs/lisp/tar-mode.el:1.87
*** emacs/lisp/tar-mode.el:1.86 Thu Mar 28 13:15:47 2002
--- emacs/lisp/tar-mode.el      Fri May 17 07:37:13 2002
***************
*** 1094,1100 ****
    (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))
                    (logand 32767 lobits)
                    ))))
  
--- 1094,1101 ----
    (let ((hibits (car timeval)) (lobits (car (cdr timeval))))
      (insert (format "%05o%01o%05o"
                    (lsh hibits -2)
!                   (logior (lsh (logand 3 hibits) 1)
!                           (if (> (logand lobits 32768) 0) 1 0))
                    (logand 32767 lobits)
                    ))))