[Emacs-diffs] Changes to emacs/lisp/ls-lisp.el,v

[Eli Zaretskii]

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