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