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

[Eli Zaretskii]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Eli Zaretskii <eliz>    07/05/23 18:35:45

Index: tar-mode.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/tar-mode.el,v
retrieving revision 1.109
retrieving revision 1.110
diff -u -b -r1.109 -r1.110
--- tar-mode.el 23 May 2007 12:38:35 -0000      1.109
+++ tar-mode.el 23 May 2007 18:35:45 -0000      1.110
@@ -363,6 +363,7 @@
                  ((eq type 29) ?M)     ; multivolume continuation
                  ((eq type 35) ?S)     ; sparse
                  ((eq type 38) ?V)     ; volume header
+                 ((eq type 55) ?H)     ; extended pax header
                  (t ?\s)
                  )
            (tar-grind-file-mode mode)
@@ -421,7 +422,7 @@
                                   (buffer-substring pos (+ pos 512)))))))
         (setq pos (+ pos 512))
         (progress-reporter-update progress-reporter pos)
-        (if (eq (tar-header-link-type tokens) 20)
+        (if (memq (tar-header-link-type tokens) '(20 55))
             ;; Foo.  There's an extra empty block after these.
             (setq pos (+ pos 512)))
         (let ((size (tar-header-size tokens)))
@@ -657,13 +658,14 @@
         (size (tar-header-size tokens))
         (link-p (tar-header-link-type tokens)))
     (if link-p
-       (error "This is a %s, not a real file"
-              (cond ((eq link-p 5) "directory")
-                    ((eq link-p 20) "tar directory header")
-                    ((eq link-p 28) "next has longname")
-                    ((eq link-p 29) "multivolume-continuation")
-                    ((eq link-p 35) "sparse entry")
-                    ((eq link-p 38) "volume header")
+       (error "This is a%s, not a real file"
+              (cond ((eq link-p 5) " directory")
+                    ((eq link-p 20) " tar directory header")
+                    ((eq link-p 28) " next has longname")
+                    ((eq link-p 29) " multivolume-continuation")
+                    ((eq link-p 35) " sparse entry")
+                    ((eq link-p 38) " volume header")
+                    ((eq link-p 55) "n extended pax header")
                     (t "link"))))
     (if (zerop size) (error "This is a zero-length file"))
     descriptor))