mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-31 20:02:42 +00:00
Code Issues Releases Activity

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

Browse Source 
(dired-mode): Set font-lock-keywords locally.
This commit is contained in:
Richard M. Stallman 1994-10-07 10:02:04 +00:00
parent 8b1f1a0c15
commit a1f6b0c60b
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/dired.el
View File

@ -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))