comparison lisp/tar-mode.el @ 103321:f50defb23b3e

(tar-header-block-tokenize): Obey @LongLink even for POSIX tar archives (bug#3410).

103320:8d8a82b45ba7

                  (decode-coding-string linkname coding)))
        (if (and (null link-p) (string-match "/\\'" name))
            (setq link-p 5))            ; directory

        (if (and (equal name "././@LongLink")
                 (equal magic-str "ustar ")) ;OLDGNU_MAGIC.
            ;; This is a GNU Tar long-file-name header.
            (let* ((size (tar-parse-octal-integer
                          string tar-size-offset tar-time-offset))
                   ;; -1 so as to strip the terminating 0 byte.
                   (name (buffer-substring pos (+ pos size -1)))

103321:f50defb23b3e

                  (decode-coding-string linkname coding)))
        (if (and (null link-p) (string-match "/\\'" name))
            (setq link-p 5))            ; directory

        (if (and (equal name "././@LongLink")
                 ;; 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))
                   ;; -1 so as to strip the terminating 0 byte.
                   (name (buffer-substring pos (+ pos size -1)))