diff options
| author | Sebastian Kremer | 1992-10-04 10:36:03 +0000 |
|---|---|---|
| committer | Sebastian Kremer | 1992-10-04 10:36:03 +0000 |
| commit | a1e2f9109ad756ea645d40a4060993c72cb0ab87 (patch) | |
| tree | f6efeed91b8f8f8b7e7c3c0f9167a9c07031d987 | |
| parent | 89cd98f3efe0168822c727c185126efb4d96b332 (diff) | |
| download | emacs-a1e2f9109ad756ea645d40a4060993c72cb0ab87.tar.gz emacs-a1e2f9109ad756ea645d40a4060993c72cb0ab87.zip | |
(dired-lisp-ls): var `short' was erronously unbound.
| -rw-r--r-- | lisp/ls-lisp.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el index c77bb046c6a..506b706bf39 100644 --- a/lisp/ls-lisp.el +++ b/lisp/ls-lisp.el | |||
| @@ -2,8 +2,8 @@ | |||
| 2 | 2 | ||
| 3 | ;;;; READ THE WARNING BELOW BEFORE USING THIS PROGRAM! | 3 | ;;;; READ THE WARNING BELOW BEFORE USING THIS PROGRAM! |
| 4 | 4 | ||
| 5 | (defconst dired-lisp-version (substring "$Revision: 1.7 $" 11 -2) | 5 | (defconst dired-lisp-version (substring "$Revision: 1.8 $" 11 -2) |
| 6 | "$Id: dired-lisp.el,v 1.7 1992/04/30 10:37:15 sk Exp sk $") | 6 | "$Id: dired-lisp.el,v 1.8 1992/05/01 17:50:56 sk Exp sk $") |
| 7 | 7 | ||
| 8 | ;; Copyright (C) 1992 by Sebastian Kremer <sk@thp.uni-koeln.de> | 8 | ;; Copyright (C) 1992 by Sebastian Kremer <sk@thp.uni-koeln.de> |
| 9 | 9 | ||
| @@ -25,7 +25,7 @@ | |||
| 25 | ;; LCD Archive Entry: | 25 | ;; LCD Archive Entry: |
| 26 | ;; dired-lisp|Sebastian Kremer|sk@thp.uni-koeln.de | 26 | ;; dired-lisp|Sebastian Kremer|sk@thp.uni-koeln.de |
| 27 | ;; |emulate Tree Dired's ls completely in Emacs Lisp | 27 | ;; |emulate Tree Dired's ls completely in Emacs Lisp |
| 28 | ;; |$Date: 1992/04/30 10:37:15 $|$Revision: 1.7 $| | 28 | ;; |$Date: 1992/05/01 17:50:56 $|$Revision: 1.8 $| |
| 29 | 29 | ||
| 30 | ;; INSTALLATION ======================================================= | 30 | ;; INSTALLATION ======================================================= |
| 31 | ;; | 31 | ;; |
| @@ -129,6 +129,7 @@ SWITCHES default to dired-listing-switches." | |||
| 129 | (default-directory dir);; so that file-attributes works | 129 | (default-directory dir);; so that file-attributes works |
| 130 | (sum 0) | 130 | (sum 0) |
| 131 | elt | 131 | elt |
| 132 | short | ||
| 132 | (file-list (directory-files dir nil wildcard)) | 133 | (file-list (directory-files dir nil wildcard)) |
| 133 | file-alist | 134 | file-alist |
| 134 | ;; do all bindings here for speed | 135 | ;; do all bindings here for speed |