From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 7 Oct 1994 10:02:04 +0000 (+0000)
Subject: (dired-font-lock-keywords): New variable.
X-Git-Tag: emacs-19.34~6472
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a1f6b0c60bc056da68f01b0173c7af16586876cf;p=emacs.git

(dired-font-lock-keywords): New variable.

(dired-mode): Set font-lock-keywords locally.
---

diff --git a/lisp/dired.el b/lisp/dired.el
index 3b0bd1478d3..d3c21d8c3ce 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -110,6 +110,17 @@ The target is used in the prompt for file copy, rename etc.")
   "*If non-nil, Dired preserves the last-modified time in a file copy.
 \(This works on only some systems.)")
 
+(defvar dired-font-lock-keywords
+  '(;; Put directory headers in italics.
+    ("^  \\(/.+\\)$" 1 font-lock-type-face)
+    ;; Put symlinks in bold italics.
+    ("\\([^ ]+\\) -> [^ ]+$" . font-lock-function-name-face)
+    ;; Put marks in bold.
+    ("^\\([^ ]\\).*$" 1 font-lock-keyword-face t)
+    ;; Put files that are subdirectories in bold.
+    ("^..d.* \\([^ ]+\\)$" 1 font-lock-keyword-face))
+  "Additional expressions to highlight in Dired mode.")
+
 ;;; Hook variables
 
 (defvar dired-load-hook nil
@@ -980,6 +991,8 @@ Keybindings:
        (expand-file-name dired-directory))
   (set (make-local-variable 'dired-actual-switches)
        (or switches dired-listing-switches))
+  (make-local-variable 'font-lock-keywords)
+  (setq font-lock-keywords dired-font-lock-keywords)
   (dired-sort-other dired-actual-switches t)
   (run-hooks 'dired-mode-hook))