aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSebastian Kremer1992-10-04 10:36:03 +0000
committerSebastian Kremer1992-10-04 10:36:03 +0000
commita1e2f9109ad756ea645d40a4060993c72cb0ab87 (patch)
treef6efeed91b8f8f8b7e7c3c0f9167a9c07031d987
parent89cd98f3efe0168822c727c185126efb4d96b332 (diff)
downloademacs-a1e2f9109ad756ea645d40a4060993c72cb0ab87.tar.gz
emacs-a1e2f9109ad756ea645d40a4060993c72cb0ab87.zip
(dired-lisp-ls): var `short' was erronously unbound.
-rw-r--r--lisp/ls-lisp.el7
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