# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 969448937 0
# Node ID adedb7435316593edcdc805ee8bc1dd11c33075a
# Parent  d9efa91b06ab4af4d29f09b9625ebaf79509dcad
(dired-font-lock-keywords): Undo last change.
(dired-readin): Bind indent-tabs-mode to nil.

diff -r d9efa91b06ab -r adedb7435316 lisp/dired.el
--- a/lisp/dired.el	Wed Sep 20 10:59:45 2000 +0000
+++ b/lisp/dired.el	Wed Sep 20 11:22:17 2000 +0000
@@ -275,7 +275,7 @@
    ;; Dired marks.
    (list dired-re-mark
 	 '(0 font-lock-constant-face)
-	 '("[ \t]+" (dired-move-to-filename) nil (0 font-lock-warning-face)))
+	 '(".+" (dired-move-to-filename) nil (0 font-lock-warning-face)))
    ;; People who are paranoid about security would consider this more
    ;; important than other things such as whether it is a directory.
    ;; But we don't want to encourage paranoia, so our default
@@ -289,11 +289,11 @@
    ;;
    ;; Subdirectories.
    (list dired-re-dir
-	 '("[ \t]+" (dired-move-to-filename) nil (0 font-lock-function-name-face)))
+	 '(".+" (dired-move-to-filename) nil (0 font-lock-function-name-face)))
    ;;
    ;; Symbolic links.
    (list dired-re-sym 
-	 '("[ \t]+" (dired-move-to-filename) nil (0 font-lock-keyword-face)))
+	 '(".+" (dired-move-to-filename) nil (0 font-lock-keyword-face)))
    ;;
    ;; Files suffixed with `completion-ignored-extensions'.
    '(eval .
@@ -301,7 +301,7 @@
        ;; It is quicker to first find just an extension, then go back to the
        ;; start of that file name.  So we do this complex MATCH-ANCHORED form.
        (list (concat "\\(" (mapconcat 'identity extensions "\\|") "\\|#\\)$")
-	     '("[ \t]+" (dired-move-to-filename) nil (0 font-lock-string-face))))))
+	     '(".+" (dired-move-to-filename) nil (0 font-lock-string-face))))))
   "Additional expressions to highlight in Dired mode.")
 
 ;;; Macros must be defined before they are used, for the byte compiler.
@@ -601,7 +601,8 @@
   ;; Also, we can run this hook which may want to modify the switches
   ;; based on default-directory, e.g. with ange-ftp to a SysV host
   ;; where ls won't understand -Al switches.
-  (let (dirname)
+  (let (dirname
+	(indent-tabs-mode nil))
     (if (consp dir-or-list)
 	(setq dirname (car dir-or-list))
       (setq dirname dir-or-list))