mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(insert-directory): Gracefully handle the case

Browse source 
where a file disappears between when it is listed in the directory
and when the attributes are requested.
This commit is contained in:
Richard M. Stallman 1994-08-01 07:15:34 +00:00
parent 5d3b0f182f
commit 3cfb886e3d
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/ls-lisp.el
View file

@ -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")