[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/find-lisp.el
From: |
Luc Teirlinck |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/find-lisp.el |
Date: |
Fri, 11 Nov 2005 21:44:51 -0500 |
Index: emacs/lisp/find-lisp.el
diff -c emacs/lisp/find-lisp.el:1.10 emacs/lisp/find-lisp.el:1.11
*** emacs/lisp/find-lisp.el:1.10 Wed Nov 9 23:04:46 2005
--- emacs/lisp/find-lisp.el Sat Nov 12 02:44:51 2005
***************
*** 3,9 ****
;; Author: Peter Breton
;; Created: Fri Mar 26 1999
;; Keywords: unix
! ;; Time-stamp: <2005-11-09 17:05:07 teirllm>
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
;; 2005 Free Software Foundation, Inc.
--- 3,9 ----
;; Author: Peter Breton
;; Created: Fri Mar 26 1999
;; Keywords: unix
! ;; Time-stamp: <2005-11-11 20:37:50 teirllm>
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
;; 2005 Free Software Foundation, Inc.
***************
*** 293,299 ****
(defun find-lisp-find-dired-insert-file (file buffer)
(set-buffer buffer)
(insert find-lisp-line-indent
! (find-lisp-format file (file-attributes file) (list "")
(current-time))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
--- 293,299 ----
(defun find-lisp-find-dired-insert-file (file buffer)
(set-buffer buffer)
(insert find-lisp-line-indent
! (find-lisp-format file (file-attributes file 'string) (list "")
(current-time))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
***************
*** 309,326 ****
(if (memq ?s switches) ; size in K
(format "%4d " (1+ (/ (nth 7 file-attr) 1024))))
(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.
(format " %3d %-8s %-8s %8d "
(nth 1 file-attr) ; no. of links
! (if (= (user-uid) (nth 2 file-attr))
! (user-login-name)
! (int-to-string (nth 2 file-attr))) ; uid
(if (eq system-type 'ms-dos)
"root" ; everything is root on MSDOS.
! (int-to-string (nth 3 file-attr))) ; gid
(nth 7 file-attr) ; size in bytes
)
(find-lisp-format-time file-attr switches now)
--- 309,324 ----
(if (memq ?s switches) ; size in K
(format "%4d " (1+ (/ (nth 7 file-attr) 1024))))
(nth 8 file-attr) ; permission bits
(format " %3d %-8s %-8s %8d "
(nth 1 file-attr) ; no. of links
! (if (numberp (nth 2 file-attr))
! (int-to-string (nth 2 file-attr))
! (nth 2 file-attr)) ; uid
(if (eq system-type 'ms-dos)
"root" ; everything is root on MSDOS.
! (if (numberp (nth 3 file-attr))
! (int-to-string (nth 3 file-attr))
! (nth 3 file-attr))) ; gid
(nth 7 file-attr) ; size in bytes
)
(find-lisp-format-time file-attr switches now)