/[emacs]/emacs/lisp/find-lisp.el
ViewVC logotype

Diff of /emacs/lisp/find-lisp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by teirllm, Wed Nov 9 23:04:46 2005 UTC revision 1.11 by teirllm, Sat Nov 12 02:44:51 2005 UTC
# Line 3  Line 3 
3  ;; Author: Peter Breton  ;; Author: Peter Breton
4  ;; Created: Fri Mar 26 1999  ;; Created: Fri Mar 26 1999
5  ;; Keywords: unix  ;; Keywords: unix
6  ;; Time-stamp: <2005-11-09 17:05:07 teirllm>  ;; Time-stamp: <2005-11-11 20:37:50 teirllm>
7    
8  ;; Copyright (C) 1999, 2000, 2002, 2003, 2004,  ;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
9  ;;   2005 Free Software Foundation, Inc.  ;;   2005 Free Software Foundation, Inc.
# Line 293  It is a function which takes two argumen Line 293  It is a function which takes two argumen
293  (defun find-lisp-find-dired-insert-file (file buffer)  (defun find-lisp-find-dired-insert-file (file buffer)
294    (set-buffer buffer)    (set-buffer buffer)
295    (insert find-lisp-line-indent    (insert find-lisp-line-indent
296            (find-lisp-format file (file-attributes file) (list "")            (find-lisp-format file (file-attributes file 'string) (list "")
297                            (current-time))))                            (current-time))))
298    
299  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
# Line 309  It is a function which takes two argumen Line 309  It is a function which takes two argumen
309              (if (memq ?s switches)      ; size in K              (if (memq ?s switches)      ; size in K
310                  (format "%4d " (1+ (/ (nth 7 file-attr) 1024))))                  (format "%4d " (1+ (/ (nth 7 file-attr) 1024))))
311              (nth 8 file-attr)           ; permission bits              (nth 8 file-attr)           ; permission bits
             ;; numeric uid/gid are more confusing than helpful  
             ;; Emacs should be able to make strings of them.  
             ;; user-login-name and user-full-name could take an  
             ;; optional arg.  
312              (format " %3d %-8s %-8s %8d "              (format " %3d %-8s %-8s %8d "
313                      (nth 1 file-attr)   ; no. of links                      (nth 1 file-attr)   ; no. of links
314                      (if (= (user-uid) (nth 2 file-attr))                      (if (numberp (nth 2 file-attr))
315                          (user-login-name)                          (int-to-string (nth 2 file-attr))
316                        (int-to-string (nth 2 file-attr)))        ; uid                        (nth 2 file-attr)) ; uid
317                      (if (eq system-type 'ms-dos)                      (if (eq system-type 'ms-dos)
318                          "root"          ; everything is root on MSDOS.                          "root"          ; everything is root on MSDOS.
319                        (int-to-string (nth 3 file-attr)))        ; gid                        (if (numberp (nth 3 file-attr))
320                              (int-to-string (nth 3 file-attr))
321                            (nth 3 file-attr))) ; gid
322                      (nth 7 file-attr)   ; size in bytes                      (nth 7 file-attr)   ; size in bytes
323                      )                      )
324              (find-lisp-format-time file-attr switches now)              (find-lisp-format-time file-attr switches now)

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26