From e66f4dfb7555eed2da7b2632f9dd87a793226127 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 4 Jun 2009 20:48:16 +0000 Subject: [PATCH] (tar-header-block-tokenize): Obey @LongLink even for POSIX tar archives (bug#3410). --- lisp/ChangeLog | 5 +++++ lisp/tar-mode.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 74ade1574ad..ac0a752a36f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-06-04 Stefan Monnier + + * tar-mode.el (tar-header-block-tokenize): Obey @LongLink even for + POSIX tar archives (bug#3410). + 2009-06-04 Johan Bockgård * vc.el (vc-revision-other-window): Fix argument to backend diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 5da38db052b..e0c78c8b781 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -276,7 +276,10 @@ write-date, checksum, link-type, and link-name." (setq link-p 5)) ; directory (if (and (equal name "././@LongLink") - (equal magic-str "ustar ")) ;OLDGNU_MAGIC. + ;; Supposedly @LongLink is only used for GNUTAR + ;; format (i.e. "ustar ") but some POSIX Tar files + ;; (with "ustar\0") have been seen using it as well. + (member magic-str '("ustar " "ustar\0"))) ;; This is a GNU Tar long-file-name header. (let* ((size (tar-parse-octal-integer string tar-size-offset tar-time-offset)) -- 2.39.5