Mercurial > emacs
comparison lisp/eshell/em-unix.el @ 62915:b89e30bcd2bb
Changed all uses of `directory-sep-char' to ?/, and all uses of
`string-to-int' to `string-to-number'.
| author | John Wiegley <johnw@newartisans.com> |
|---|---|
| date | Tue, 31 May 2005 00:14:26 +0000 |
| parents | 7e9025771254 |
| children | 18a818a2ee7c 01137c1fdbe9 |
comparison
equal
deleted
inserted
replaced
| 62914:6c8a535adaf3 | 62915:b89e30bcd2bb |
|---|---|
| 875 :usage "[OPTION]... FILE... | 875 :usage "[OPTION]... FILE... |
| 876 Summarize disk usage of each FILE, recursively for directories.") | 876 Summarize disk usage of each FILE, recursively for directories.") |
| 877 (unless by-bytes | 877 (unless by-bytes |
| 878 (setq block-size (or block-size 1024))) | 878 (setq block-size (or block-size 1024))) |
| 879 (if (and max-depth (stringp max-depth)) | 879 (if (and max-depth (stringp max-depth)) |
| 880 (setq max-depth (string-to-int max-depth))) | 880 (setq max-depth (string-to-number max-depth))) |
| 881 ;; filesystem support means nothing under Windows | 881 ;; filesystem support means nothing under Windows |
| 882 (if (eshell-under-windows-p) | 882 (if (eshell-under-windows-p) |
| 883 (setq only-one-filesystem nil)) | 883 (setq only-one-filesystem nil)) |
| 884 (let ((size 0.0) ange-cache) | 884 (let ((size 0.0) ange-cache) |
| 885 (while args | 885 (while args |