From 516f7fca862c1210c3a4733811e9bf126913bb36 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 18 May 2002 19:45:37 +0000 Subject: [PATCH] (tar-octal-time): Fix last change. --- lisp/ChangeLog | 4 ++++ lisp/tar-mode.el | 12 ++++++------ 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4550a580f51..5c8ed7f7413 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2002-05-18 Eli Zaretskii + + * tar-mode.el (tar-octal-time): Fix last change. + 2002-05-18 Markus Rost * mail/emacsbug.el (report-emacs-bug-text-prompt): New variable. diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 4051398e5af..400dbdad134 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -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. -- 2.39.5