procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(tar-octal-time): Fix last change.

Browse source
This commit is contained in:
Eli Zaretskii 2002-05-18 19:45:37 +00:00
parent 515ced278c
commit 516f7fca86
2 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2002-05-18 Eli Zaretskii <eliz@is.elta.co.il>
* tar-mode.el (tar-octal-time): Fix last change.
2002-05-18 Markus Rost <rost@math.ohio-state.edu>
* mail/emacsbug.el (report-emacs-bug-text-prompt): New variable.

12
lisp/tar-mode.el
View file

@ -1092,12 +1092,12 @@ for this to be permanent."
(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)
))))
(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.