(dired-font-lock-keywords): Allow tabs and spaces,

for instance for the case that tab-width is 2.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b03c043c7e1224051a4ceb1d7149682461450bb1..9a59fdfeb6dd718b6301f992d0087ee209e806aa 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-09-19  Gerd Moellmann  <gerd@gnu.org>
+
+       * dired.el (dired-font-lock-keywords): Allow tabs and spaces,
+       for instance for the case that tab-width is 2.
+
 2000-09-18  Gerd Moellmann  <gerd@gnu.org>
 
        * toolbar/toolbar.el (toolbar-like-menu-item): Like in

diff --git a/lisp/dired.el b/lisp/dired.el
index 393635452a171c2c01d842fbadd009314d6ed298..28ac4e960881cd13bf7d3ad3380f3b7f341bf20c 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -275,7 +275,7 @@ Subexpression 2 must end right before the \\n or \\r.")
    ;; Dired marks.
    (list dired-re-mark
         '(0 font-lock-constant-face)
-        '(".+" (dired-move-to-filename) nil (0 font-lock-warning-face)))
+        '("[ \t]+" (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 @@ Subexpression 2 must end right before the \\n or \\r.")
    ;;
    ;; Subdirectories.
    (list dired-re-dir
-        '(".+" (dired-move-to-filename) nil (0 font-lock-function-name-face)))
+        '("[ \t]+" (dired-move-to-filename) nil (0 font-lock-function-name-face)))
    ;;
    ;; Symbolic links.
    (list dired-re-sym 
-        '(".+" (dired-move-to-filename) nil (0 font-lock-keyword-face)))
+        '("[ \t]+" (dired-move-to-filename) nil (0 font-lock-keyword-face)))
    ;;
    ;; Files suffixed with `completion-ignored-extensions'.
    '(eval .
@@ -301,7 +301,7 @@ Subexpression 2 must end right before the \\n or \\r.")
        ;; 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 "\\|") "\\|#\\)$")
-            '(".+" (dired-move-to-filename) nil (0 font-lock-string-face))))))
+            '("[ \t]+" (dired-move-to-filename) nil (0 font-lock-string-face))))))
   "Additional expressions to highlight in Dired mode.")
 \f
 ;;; Macros must be defined before they are used, for the byte compiler.