diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2003-01-29 07:24:26 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2003-01-29 07:24:26 +0000 |
| commit | d2c6d9752b4b7e1ebdda74d757b7fbb56ae518ed (patch) | |
| tree | 8c23af75b2f268b0d25674a1e295d5a961260830 /lisp/arc-mode.el | |
| parent | 58b36746c1bd4071c919705374d8c0014b3e0f43 (diff) | |
| download | emacs-d2c6d9752b4b7e1ebdda74d757b7fbb56ae518ed.tar.gz | |
(archive-lzh-summarize): Fix previous change.
Diffstat (limited to 'lisp/arc-mode.el')
| -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." (setq thsize (- neh p)))) (if (= hdrlvl 0) ;total header size (setq thsize hsize)) - (setq fiddle (string= efnname (upcase efnname))) + (setq fiddle (if efnname (string= efnname (upcase efnname)))) (setq ifnname (if fiddle (downcase efnname) efnname)) (setq prname (if dir (concat dir ifnname) ifnname)) - (setq width (string-width prname)) + (setq width (if prname (string-width prname) 0)) (setq modestr (if mode (archive-int-to-mode mode) "??????????")) (setq moddate (if (= hdrlvl 2) (archive-unixdate time1 time2) ;level 2 header in UNIX format |