From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 29 Jan 2003 07:24:26 +0000 (+0000)
Subject: (archive-lzh-summarize): Fix previous change.
X-Git-Tag: ttn-vms-21-2-B4~11426
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d2c6d9752b4b7e1ebdda74d757b7fbb56ae518ed;p=emacs.git

(archive-lzh-summarize): Fix previous change.
---

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