diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-05-29 19:46:24 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-05-29 19:46:24 +0000 |
| commit | 82b942b71bb22e60c5c8463cb4cfee7f7d4e358f (patch) | |
| tree | ee9d884b51712b0a3a28476be13c75cec335f0ca /lisp/find-dired.el | |
| parent | 5f76e7d492047bd9a96c374bbf61979f990f75cf (diff) | |
| download | emacs-82b942b71bb22e60c5c8463cb4cfee7f7d4e358f.tar.gz | |
(find-dired): If dired-simple-subdir-alist is not
defined, set dired-subdir-alist a different way.
(find-dired-version): Variable deleted.
Diffstat (limited to 'lisp/find-dired.el')
| -rw-r--r-- | lisp/find-dired.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/find-dired.el b/lisp/find-dired.el index 1401603607e..3f2648fb76c 100644 --- a/lisp/find-dired.el +++ b/lisp/find-dired.el @@ -6,9 +6,6 @@ ;; Sebastian Kremer <sk@thp.uni-koeln.de> ;; Keywords: unix -(defconst find-dired-version (substring "$Revision: 1.20 $" 11 -2) - "$Id: find-dired.el,v 1.20 1995/03/16 04:27:11 rms Exp kwzh $") - ;;; This program is free software; you can redistribute it and/or modify ;;; it under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 2, or (at your option) @@ -81,7 +78,14 @@ The command run (after changing into DIR) is ;; The next statement will bomb in classic dired (no optional arg allowed) (dired-mode dir (cdr find-ls-option)) ;; Set subdir-alist so that Tree Dired will work: - (dired-simple-subdir-alist) + (if (fboundp 'dired-simple-subdir-alist) + ;; will work even with nested dired format (dired-nstd.el,v 1.15 + ;; and later) + (dired-simple-subdir-alist) + ;; else we have an ancient tree dired (or classic dired, where + ;; this does no harm) + (set (make-local-variable 'dired-subdir-alist) + (list (cons default-directory (point-min-marker))))) (setq buffer-read-only nil) ;; Subdir headlerline must come first because the first marker in ;; subdir-alist points there. |