Mercurial > emacs

comparison lisp/ls-lisp.el @ 24436:e5af0407bcd6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ls-lisp-format): Under -s, print the size in blocks with %4.0f, in case they have a *really* huge file.
author Eli Zaretskii <eliz@gnu.org>
date Thu, 04 Mar 1999 11:34:47 +0000
parents 3b5ee0390edd
children 809c3c8f6b77
comparison
equal deleted inserted replaced
24435:3b5ee0390edd 24436:e5af0407bcd6
255 (let ((file-type (nth 0 file-attr))) 255 (let ((file-type (nth 0 file-attr)))
256 (concat (if (memq ?i switches) ; inode number 256 (concat (if (memq ?i switches) ; inode number
257 (format "%6d " (nth 10 file-attr))) 257 (format "%6d " (nth 10 file-attr)))
258 ;; nil is treated like "" in concat 258 ;; nil is treated like "" in concat
259 (if (memq ?s switches) ; size in K 259 (if (memq ?s switches) ; size in K
260 (format "%4d " (fceiling (/ file-size 1024.0)))) 260 (format "%4.0f " (fceiling (/ file-size 1024.0))))
261 (nth 8 file-attr) ; permission bits 261 (nth 8 file-attr) ; permission bits
262 ;; numeric uid/gid are more confusing than helpful 262 ;; numeric uid/gid are more confusing than helpful
263 ;; Emacs should be able to make strings of them. 263 ;; Emacs should be able to make strings of them.
264 ;; user-login-name and user-full-name could take an 264 ;; user-login-name and user-full-name could take an
265 ;; optional arg. 265 ;; optional arg.