Changeset 3988 for vendor/emacs-CVS_HEAD/lisp/find-lisp.el

Timestamp:

2005年11月26日 08時33分26秒 (3 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• vendor/emacs-CVS_HEAD/lisp/find-lisp.el (modified) (5 diffs)

vendor/emacs-CVS_HEAD/lisp/find-lisp.el

@@ -4 +4 @@
-;; Created: Fri Mar 26 1999
-;; Keywords: unix
-1-07-16 12:42:35 pavel
+5-11-11 20:37:50 teirllm
-
-;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
@@ -46 +46 @@
-
-;;; Code:
+
+(require 'dired)
-
-(defvar dired-buffers)
@@ -199 +201 @@
-    ;; Expand DIR ("" means default-directory), and make sure it has a
-    ;; trailing slash.
-
-
+
-    ;; Check that it's really a directory.
-    (or (file-directory-p dir)
@@ -293 +294 @@
-  (set-buffer buffer)
-  (insert find-lisp-line-indent
-
+ 'string
-                          (current-time))))
-
@@ -309 +310 @@
-                (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
-= (user-uid)
-user-login-name
-int-to-string (nth 2 file-attr)))       
+numberp
+int-to-string (nth 2 file-attr)
+nth 2 file-attr)) 
-                    (if (eq system-type 'ms-dos)
-                        "root"          ; everything is root on MSDOS.
-
+
+
+
-                    (nth 7 file-attr)   ; size in bytes
-                    )