Mercurial > emacs

diff lisp/arc-mode.el @ 49509:389fbac8d443

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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
line wrap: on
line diff
--- a/lisp/arc-mode.el	Wed Jan 29 00:16:33 2003 +0000
+++ b/lisp/arc-mode.el	Wed Jan 29 07:24:26 2003 +0000
@@ -1486,10 +1486,10 @@
 	      (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