diff options
| author | Juanma Barranquero | 2003-01-29 07:24:26 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2003-01-29 07:24:26 +0000 |
| commit | d2c6d9752b4b7e1ebdda74d757b7fbb56ae518ed (patch) | |
| tree | 8c23af75b2f268b0d25674a1e295d5a961260830 | |
| parent | 58b36746c1bd4071c919705374d8c0014b3e0f43 (diff) | |
| download | emacs-d2c6d9752b4b7e1ebdda74d757b7fbb56ae518ed.tar.gz emacs-d2c6d9752b4b7e1ebdda74d757b7fbb56ae518ed.zip | |
(archive-lzh-summarize): Fix previous change.
| -rw-r--r-- | lisp/arc-mode.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index 583b8c25426..cc1462c22f3 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el | |||
| @@ -1486,10 +1486,10 @@ This doesn't recover lost files, it just undoes changes in the buffer itself." | |||
| 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 |