diff options
author | Karl Heuer <kwzh@gnu.org> | 1999-06-20 19:35:07 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1999-06-20 19:35:07 +0000 |
commit | b40c5c9f2296ad228872f1c5ec44aa8a99f59285 (patch) | |
tree | d733d17c457c36cb9c977f41a20c893a0be560a9 /lisp | |
parent | 001c7f79ca66f42e7dc27a56022a2662dd361d80 (diff) | |
download | emacs-b40c5c9f2296ad228872f1c5ec44aa8a99f59285.tar.gz |
(tar-header-block-tokenize): Don't assume that the last byte
of a numeric field is a space or a NUL. Parse it as
potentially part of the number. This is used by GNU tar
1.12.64012 to handle larger values.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/tar-mode.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index bfba9b40233..e45b36bb064 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -265,19 +265,19 @@ write-date, checksum, link-type, and link-name." (if (and (null link-p) (string-match "/$" name)) (setq link-p 5)) ; directory (make-tar-header name - (tar-parse-octal-integer string tar-mode-offset (1- tar-uid-offset)) - (tar-parse-octal-integer string tar-uid-offset (1- tar-gid-offset)) - (tar-parse-octal-integer string tar-gid-offset (1- tar-size-offset)) - (tar-parse-octal-integer string tar-size-offset (1- tar-time-offset)) - (tar-parse-octal-long-integer string tar-time-offset (1- tar-chk-offset)) - (tar-parse-octal-integer string tar-chk-offset (1- tar-linkp-offset)) + (tar-parse-octal-integer string tar-mode-offset tar-uid-offset) + (tar-parse-octal-integer string tar-uid-offset tar-gid-offset) + (tar-parse-octal-integer string tar-gid-offset tar-size-offset) + (tar-parse-octal-integer string tar-size-offset tar-time-offset) + (tar-parse-octal-long-integer string tar-time-offset tar-chk-offset) + (tar-parse-octal-integer string tar-chk-offset tar-linkp-offset) link-p linkname uname-valid-p (and uname-valid-p (substring string tar-uname-offset uname-end)) (and uname-valid-p (substring string tar-gname-offset gname-end)) - (tar-parse-octal-integer string tar-dmaj-offset (1- tar-dmin-offset)) - (tar-parse-octal-integer string tar-dmin-offset (1- tar-end-offset)) + (tar-parse-octal-integer string tar-dmaj-offset tar-dmin-offset) + (tar-parse-octal-integer string tar-dmin-offset tar-end-offset) ))) (t 'empty-tar-block))) |