Mercurial > emacs
comparison lisp/arc-mode.el @ 49509:389fbac8d443
(archive-lzh-summarize): Fix previous change.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Wed, 29 Jan 2003 07:24:26 +0000 |
parents | 3a18e49975cb |
children | 37645a051842 |
comparison
equal
deleted
inserted
replaced
49508:931d6468248e | 49509:389fbac8d443 |
---|---|
1484 (setq etype (char-after (+ neh 2)))) | 1484 (setq etype (char-after (+ neh 2)))) |
1485 ;;get total header size for level 1 and 2 headers | 1485 ;;get total header size for level 1 and 2 headers |
1486 (setq thsize (- neh p)))) | 1486 (setq thsize (- neh p)))) |
1487 (if (= hdrlvl 0) ;total header size | 1487 (if (= hdrlvl 0) ;total header size |
1488 (setq thsize hsize)) | 1488 (setq thsize hsize)) |
1489 (setq fiddle (string= efnname (upcase efnname))) | 1489 (setq fiddle (if efnname (string= efnname (upcase efnname)))) |
1490 (setq ifnname (if fiddle (downcase efnname) efnname)) | 1490 (setq ifnname (if fiddle (downcase efnname) efnname)) |
1491 (setq prname (if dir (concat dir ifnname) ifnname)) | 1491 (setq prname (if dir (concat dir ifnname) ifnname)) |
1492 (setq width (string-width prname)) | 1492 (setq width (if prname (string-width prname) 0)) |
1493 (setq modestr (if mode (archive-int-to-mode mode) "??????????")) | 1493 (setq modestr (if mode (archive-int-to-mode mode) "??????????")) |
1494 (setq moddate (if (= hdrlvl 2) | 1494 (setq moddate (if (= hdrlvl 2) |
1495 (archive-unixdate time1 time2) ;level 2 header in UNIX format | 1495 (archive-unixdate time1 time2) ;level 2 header in UNIX format |
1496 (archive-dosdate time2))) ;level 0 and 1 header in DOS format | 1496 (archive-dosdate time2))) ;level 0 and 1 header in DOS format |
1497 (setq modtime (if (= hdrlvl 2) | 1497 (setq modtime (if (= hdrlvl 2) |