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

[Kenichi Handa]

Index: emacs/lisp/tar-mode.el
diff -c emacs/lisp/tar-mode.el:1.87 emacs/lisp/tar-mode.el:1.88
*** emacs/lisp/tar-mode.el:1.87 Fri May 17 07:37:13 2002
--- emacs/lisp/tar-mode.el      Sat May 18 15:45:05 2002
***************
*** 1092,1103 ****
  (defun tar-octal-time (timeval)
    ;; Format a timestamp as 11 octal digits.  Ghod, I hope this works...
    (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)
!                   ))))
  
  (defun tar-subfile-save-buffer ()
    "In tar subfile mode, save this buffer into its parent tar-file buffer.
--- 1092,1103 ----
  (defun tar-octal-time (timeval)
    ;; Format a timestamp as 11 octal digits.  Ghod, I hope this works...
    (let ((hibits (car timeval)) (lobits (car (cdr timeval))))
!     (format "%05o%01o%05o"
!           (lsh hibits -2)
!           (logior (lsh (logand 3 hibits) 1)
!                   (if (> (logand lobits 32768) 0) 1 0))
!           (logand 32767 lobits)
!           )))
  
  (defun tar-subfile-save-buffer ()
    "In tar subfile mode, save this buffer into its parent tar-file buffer.