# HG changeset patch
# User Eric S. Raymond <esr@snark.thyrsus.com>
# Date 712220369 0
# Node ID 52a05f4884a4104a18d14648f5f9518a4c89fca0
# Parent  6dc5b7273a07be25a9e01a924c868cc31cc0cddd
entered into RCS

diff -r 6dc5b7273a07 -r 52a05f4884a4 lisp/abbrev.el
--- a/lisp/abbrev.el	Mon Jul 27 05:31:49 1992 +0000
+++ b/lisp/abbrev.el	Mon Jul 27 06:59:29 1992 +0000
@@ -2,8 +2,6 @@
 
 ;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.
 
-;; Maintainer: FSF
-
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
diff -r 6dc5b7273a07 -r 52a05f4884a4 lisp/tar-mode.el
--- a/lisp/tar-mode.el	Mon Jul 27 05:31:49 1992 +0000
+++ b/lisp/tar-mode.el	Mon Jul 27 06:59:29 1992 +0000
@@ -916,6 +916,15 @@
       (narrow-to-region 1 tar-header-offset))))
 
 
+(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) (> (logand lobits 32768) 0))
+		    (logand 32767 lobits)
+		    ))))
+
 (defun tar-subfile-save-buffer ()
   "In tar subfile mode, write this buffer back into its parent tar-file buffer.
 This doesn't write anything to disk - you must save the parent tar-file buffer
@@ -974,7 +983,7 @@
 		  nil
 		(goto-char (+ header-start tar-time-offset))
 		(delete-region (point) (+ (point) 12))
-		(insert (format "%11o" (current-time)))
+		(insert (tar-octal-time (current-time)))
 		(insert ? ))
 	      ;;
 	      ;; compute a new checksum and insert it.