# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 775725334 0
# Node ID 4a27ca4bcdf4872e15811ed28c0c6216c0f0b77a
# Parent  109166e311cee9009a6ac5a62165bd2006fcc5c5
(insert-directory): Gracefully handle the case
where a file disappears between when it is listed in the directory
and when the attributes are requested.

diff -r 109166e311ce -r 4a27ca4bcdf4 lisp/ls-lisp.el
--- a/lisp/ls-lisp.el	Mon Aug 01 07:11:43 1994 +0000
+++ b/lisp/ls-lisp.el	Mon Aug 01 07:15:34 1994 +0000
@@ -105,12 +105,12 @@
 		  (ls-lisp-handle-switches file-alist switches))
 	    (while file-alist
 	      (setq elt (car file-alist)
+		    file-alist (cdr 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)))
+		    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")