Skip to content

GitLab

Commit d9a0f717 authored by Sebastian Kremer's avatar Sebastian Kremer
Browse files

Doc fixes.

parent 738eb4e7
Hide whitespace changes
Inline Side-by-side
Showing with 11 additions and 10 deletions
lisp/ls-lisp.el
View file @ d9a0f717
;;;; 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! ;;;; READ THE WARNING BELOW BEFORE USING THIS PROGRAM!
(defconst dired-lisp-version (substring "$Revision: 5.212 $" 11 -2) (defconst dired-lisp-version (substring "$Revision: 1.6 $" 11 -2)
"$Id: dired-lisp.el,v 4.19 1991/09/20 13:20:58 sk RelBeta $") "$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> ;; Copyright (C) 1992 by Sebastian Kremer <sk@thp.uni-koeln.de>
...@@ -24,14 +24,17 @@ ...@@ -24,14 +24,17 @@
;; LISPDIR ENTRY for the Elisp Archive =============================== ;; LISPDIR ENTRY for the Elisp Archive ===============================
;; LCD Archive Entry: ;; LCD Archive Entry:
;; dired-lisp|Sebastian Kremer|sk@thp.uni-koeln.de ;; dired-lisp|Sebastian Kremer|sk@thp.uni-koeln.de
;; |emulate Dired's ls completely in Emacs Lisp ;; |emulate Tree Dired's ls completely in Emacs Lisp
;; |$Date: 1991/09/20 13:20:58 $|$Revision: 4.19 $| ;; |$Date: 1992/04/30 10:29:53 $|$Revision: 1.6 $|
;; INSTALLATION ======================================================= ;; INSTALLATION =======================================================
;; ;;
;; Put this file into your load-path. Loading it will result in ;; Put this file into your load-path. Loading it will result in
;; redefining function dired-ls to not call ls. ;; 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 =========================================================== ;; OVERVIEW ===========================================================
;; This file overloads tree dired so that all fileinfo is retrieved ;; This file overloads tree dired so that all fileinfo is retrieved
...@@ -87,11 +90,9 @@ ...@@ -87,11 +90,9 @@
;; ;;
;; If you load dired-lisp first, there seem to be no problems. ;; If you load dired-lisp first, there seem to be no problems.
;; It is surprisingly fast, though!
;; TODO ============================================================== ;; TODO ==============================================================
;; Recognize at some more ls switches: R F ;; Recognize some more ls switches: R F
(require 'dired) ; we will redefine dired-ls: (require 'dired) ; we will redefine dired-ls:
...@@ -160,12 +161,12 @@ SWITCHES default to dired-listing-switches." ...@@ -160,12 +161,12 @@ SWITCHES default to dired-listing-switches."
fil (concat dir short) fil (concat dir short)
sum (+ sum (nth 7 attr))) sum (+ sum (nth 7 attr)))
(insert (dired-lisp-format short attr switches))) (insert (dired-lisp-format short attr switches)))
;; Fill in total size of all files:
(save-excursion (save-excursion
(search-backward "total \007") (search-backward "total \007")
(goto-char (match-end 0)) (goto-char (match-end 0))
(delete-char -1) (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 ;; if not full-directory-p, FILE *must not* end in /, as
;; file-attributes will not recognize a symlink to a directory ;; file-attributes will not recognize a symlink to a directory
;; must make it a relative filename as ls does: ;; must make it a relative filename as ls does:
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment