Mercurial > emacs

changeset 25581:a066c27ca69e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tar-header-block-tokenize): Bind linkname.
author Dave Love <fx@gnu.org>
date Tue, 07 Sep 1999 11:00:48 +0000
parents b76f1a72649a
children e8428725fec3
files lisp/tar-mode.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/tar-mode.el	Tue Sep 07 06:37:06 1999 +0000
+++ b/lisp/tar-mode.el	Tue Sep 07 11:00:48 1999 +0000
@@ -244,12 +244,12 @@
 		(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