[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/ls-lisp.el,v
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/ls-lisp.el,v |
Date: |
Sat, 05 Apr 2008 15:02:44 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Eli Zaretskii <eliz> 08/04/05 15:02:44
Index: ls-lisp.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ls-lisp.el,v
retrieving revision 1.71
retrieving revision 1.72
diff -u -b -r1.71 -r1.72
--- ls-lisp.el 26 Jan 2008 13:14:28 -0000 1.71
+++ ls-lisp.el 5 Apr 2008 15:02:43 -0000 1.72
@@ -529,7 +529,17 @@
;; for symbolic link, or nil.
(drwxrwxrwx (nth 8 file-attr))) ; attribute string ("drwxrwxrwx")
(concat (if (memq ?i switches) ; inode number
- (format " %6d" (nth 10 file-attr)))
+ (let ((inode (nth 10 file-attr)))
+ (if (consp inode)
+ (if (consp (cdr inode))
+ (format " %17.0f "
+ (+ (* (car inode) 1099511627776.0)
+ (* (cadr inode) 65536.0)
+ (cddr inode)))
+ (format " %17.0f "
+ (+ (* (car inode) 65536.0)
+ (cdr inode))))
+ (format " %17d " inode))))
;; nil is treated like "" in concat
(if (memq ?s switches) ; size in K
(format " %4.0f" (fceiling (/ file-size 1024.0))))
- [Emacs-diffs] Changes to emacs/lisp/ls-lisp.el,v,
Eli Zaretskii <=