Mercurial > emacs
changeset 45348:eed727396dd0
(tar-octal-time): Fix last change.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 18 May 2002 19:45:05 +0000 |
| parents | d80cadecae74 |
| children | adad3cfa1c62 |
| files | lisp/tar-mode.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/tar-mode.el Sat May 18 19:19:18 2002 +0000 +++ b/lisp/tar-mode.el Sat May 18 19:45:05 2002 +0000 @@ -1092,12 +1092,12 @@ (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.