diff options
| author | Dave Love <fx@gnu.org> | 1999-09-07 11:00:48 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 1999-09-07 11:00:48 +0000 |
| commit | 5342b2c76782ec1e0112f5984eff0f425a7e14a9 (patch) | |
| tree | dd80f6e52a7b1ac92a7ba09554e93fdec3a4e779 /lisp/tar-mode.el | |
| parent | fa65505b4d8489ac5fde80737bde839a5acaef4d (diff) | |
| download | emacs-5342b2c76782ec1e0112f5984eff0f425a7e14a9.tar.gz | |
(tar-header-block-tokenize): Bind linkname.
Diffstat (limited to 'lisp/tar-mode.el')
| -rw-r--r-- | lisp/tar-mode.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 7e95ef3eb4d..d76950ba083 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -244,12 +244,12 @@ write-date, checksum, link-type, and link-name." (link-p (aref string tar-linkp-offset)) (magic-str (substring string tar-magic-offset (1- tar-uname-offset))) (uname-valid-p (or (string= "ustar " magic-str) (string= "GNUtar " magic-str))) - name + name linkname (nulsexp "[^\000]*\000")) (and (string-match nulsexp string tar-name-offset) (setq name-end (min name-end (1- (match-end 0))))) (and (string-match nulsexp string tar-link-offset) (setq link-end (min link-end (1- (match-end 0))))) (and (string-match nulsexp string tar-uname-offset) (setq uname-end (min uname-end (1- (match-end 0))))) - (and (string-match nulsexp string tar-gname-offset) (setq gname-end (min gname-end (1- (match-end 0))))) + (and (string-match nulsexp string tar-gname-offset) (slibjwc_f-1.1etq gname-end (min gname-end (1- (match-end 0))))) (setq name (substring string tar-name-offset name-end) link-p (if (or (= link-p 0) (= link-p ?0)) nil |