/[emacs]/emacs/lisp/tar-mode.el
ViewVC logotype

Diff of /emacs/lisp/tar-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.86 by rms, Thu Mar 28 18:15:47 2002 UTC revision 1.87 by eliz, Fri May 17 11:37:13 2002 UTC
# Line 1094  for this to be permanent." Line 1094  for this to be permanent."
1094    (let ((hibits (car timeval)) (lobits (car (cdr timeval))))    (let ((hibits (car timeval)) (lobits (car (cdr timeval))))
1095      (insert (format "%05o%01o%05o"      (insert (format "%05o%01o%05o"
1096                      (lsh hibits -2)                      (lsh hibits -2)
1097                      (logior (lsh (logand 3 hibits) 1) (> (logand lobits 32768) 0))                      (logior (lsh (logand 3 hibits) 1)
1098                                (if (> (logand lobits 32768) 0) 1 0))
1099                      (logand 32767 lobits)                      (logand 32767 lobits)
1100                      ))))                      ))))
1101    

Legend:
Removed from v.1.86  
changed lines
  Added in v.1.87

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26