(paragraph-start, paragraph-separate): Default values no longer start

[bpt/emacs.git] / lisp / ls-lisp.el

diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index cd6c68b..48a7616 100644 (file)
--- a/lisp/ls-lisp.el
+++ b/lisp/ls-lisp.el
@@ -105,12 +105,12 @@ The switches that work are: A a c i r S s t u"
                  (ls-lisp-handle-switches file-alist switches))
            (while file-alist
              (setq elt (car file-alist)
-                   short (car elt)
-                   attr  (cdr elt)
                    file-alist (cdr file-alist)
-                   fil (concat dir short)
-                   sum (+ sum (nth 7 attr)))
-             (insert (ls-lisp-format short attr switches)))
+                   short (car elt)
+                   attr (cdr elt))
+             (and attr
+                  (setq sum (+ sum (nth 7 attr)))
+                  (insert (ls-lisp-format short attr switches))))
            ;; Fill in total size of all files:
            (save-excursion
              (search-backward "total \007")