mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-10 15:56:18 +00:00
Code Issues Releases Activity

(archive-zoo-summarize): Handle archives with long file names.

Browse Source
This commit is contained in:
Richard M. Stallman 1995-10-30 19:18:52 +00:00
parent 9742dbc0ea
commit 83c4abcb48
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/arc-mode.el
View File

@ -1428,9 +1428,23 @@ This doesn't recover lost files, it just undoes changes in the buffer itself."
(modtime (archive-l-e (+ p 16) 2))
(ucsize (archive-l-e (+ p 20) 4))
(namefld (buffer-substring (+ p 38) (+ p 38 13)))
(fnlen (or (string-match "\0" namefld) 13))
(efnname (substring namefld 0 fnlen))
(fiddle (string= efnname (upcase efnname)))
(dirtype (char-after (+ p 4)))
(lfnlen (if (= dirtype 2) (char-after (+ p 56)) 0))
(ldirlen (if (= dirtype 2) (char-after (+ p 57)) 0))
(fnlen (+ ldirlen
(if (> lfnlen 0)
(1- lfnlen)
(or (string-match "\0" namefld) 13))))
(efnname (concat
(if (> ldirlen 0)
(concat (buffer-substring
(+ p 58 lfnlen) (+ p 58 lfnlen ldirlen -1))
"/")
"")
(if (> lfnlen 0)
(buffer-substring (+ p 58) (+ p 58 lfnlen -1))
(substring namefld 0 fnlen))))
(fiddle (and (= lfnlen 0) (string= efnname (upcase efnname))))
(ifnname (if fiddle (downcase efnname) efnname))
(text (format " %8d %-11s %-8s %s"
ucsize