(ls-lisp-insert-directory): Call fceiling to round

the size in blocks, since it can be a float.
(ls-lisp-format): Likewise

diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index 5a3c1b52ff75b8b5182f674a383f0a347bca10af..7d35b1e8dc3e4407fa42eccb76c5624926a422c2 100644 (file)
--- a/lisp/ls-lisp.el
+++ b/lisp/ls-lisp.el
@@ -177,7 +177,7 @@ are: A a c i r S s t u"
              (search-backward "total \007")
              (goto-char (match-end 0))
              (delete-char -1)
-             (insert (format "%d" (if (zerop sum) 0 (1+ (/ sum 1024)))))))
+             (insert (format "%.0f" (fceiling (/ sum 1024.0))))))
        ;; if not full-directory-p, FILE *must not* end in /, as
        ;; file-attributes will not recognize a symlink to a directory
        ;; must make it a relative filename as ls does:
@@ -246,7 +246,7 @@ are: A a c i r S s t u"
                (format "%6d " (nth 10 file-attr)))
            ;; nil is treated like "" in concat
            (if (memq ?s switches)      ; size in K
-               (format "%4d " (1+ (/ (nth 7 file-attr) 1024))))
+               (format "%4d " (fceiling (/ (nth 7 file-attr) 1024.0))))
            (nth 8 file-attr)           ; permission bits
            ;; numeric uid/gid are more confusing than helpful
            ;; Emacs should be able to make strings of them.