diff options
| author | Sebastian Kremer <sk@thp.uni-koeln.de> | 1992-04-30 10:37:15 +0000 |
|---|---|---|
| committer | Sebastian Kremer <sk@thp.uni-koeln.de> | 1992-04-30 10:37:15 +0000 |
| commit | 11d12b00fa218961e9ac962255739401c44aab08 (patch) | |
| tree | 873d286dea3884b4890b6be0f0d2c314ba8fa146 /lisp/ls-lisp.el | |
| parent | 5473e38a3b92e133792aa27842420fcc7b5238f4 (diff) | |
| download | emacs-11d12b00fa218961e9ac962255739401c44aab08.tar.gz | |
Doc fixes.
Diffstat (limited to 'lisp/ls-lisp.el')
| -rw-r--r-- | lisp/ls-lisp.el | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el index 8f65058c6b0..67364ab82ef 100644 --- a/lisp/ls-lisp.el +++ b/lisp/ls-lisp.el @@ -1,9 +1,9 @@ -;;;; dired-lisp.el - emulate Dired's ls completely in Emacs Lisp +;;;; dired-lisp.el - emulate Tree Dired's ls completely in Emacs Lisp ;;;; READ THE WARNING BELOW BEFORE USING THIS PROGRAM! -(defconst dired-lisp-version (substring "$Revision: 5.212 $" 11 -2) - "$Id: dired-lisp.el,v 4.19 1991/09/20 13:20:58 sk RelBeta $") +(defconst dired-lisp-version (substring "$Revision: 1.6 $" 11 -2) + "$Id: dired-lisp.el,v 1.6 1992/04/30 10:29:53 sk Exp sk $") ;; Copyright (C) 1992 by Sebastian Kremer <sk@thp.uni-koeln.de> @@ -24,14 +24,17 @@ ;; LISPDIR ENTRY for the Elisp Archive =============================== ;; LCD Archive Entry: ;; dired-lisp|Sebastian Kremer|sk@thp.uni-koeln.de -;; |emulate Dired's ls completely in Emacs Lisp -;; |$Date: 1991/09/20 13:20:58 $|$Revision: 4.19 $| +;; |emulate Tree Dired's ls completely in Emacs Lisp +;; |$Date: 1992/04/30 10:29:53 $|$Revision: 1.6 $| ;; INSTALLATION ======================================================= ;; ;; Put this file into your load-path. Loading it will result in ;; redefining function dired-ls to not call ls. +;; You need tree dired from ftp.cs.buffalo.edu:pub/Emacs/diredall.tar.Z, +;; classic (e.g. 18.57) dired.el will not work. + ;; OVERVIEW =========================================================== ;; This file overloads tree dired so that all fileinfo is retrieved @@ -87,11 +90,9 @@ ;; ;; If you load dired-lisp first, there seem to be no problems. -;; It is surprisingly fast, though! - ;; TODO ============================================================== -;; Recognize at some more ls switches: R F +;; Recognize some more ls switches: R F (require 'dired) ; we will redefine dired-ls: @@ -160,12 +161,12 @@ SWITCHES default to dired-listing-switches." fil (concat dir short) sum (+ sum (nth 7 attr))) (insert (dired-lisp-format short attr switches))) + ;; Fill in total size of all files: (save-excursion (search-backward "total \007") (goto-char (match-end 0)) (delete-char -1) - (insert (format "%d" (1+ (/ sum 1024))))) - ) + (insert (format "%d" (1+ (/ sum 1024)))))) ;; if not full-directory-p, FILE *must not* end in /, as ;; file-attributes will not recognize a symlink to a directory ;; must make it a relative filename as ls does: |