diff options
| author | Andreas Schwab <schwab@suse.de> | 2008-12-01 16:07:19 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 2008-12-01 16:07:19 +0000 |
| commit | a5dad58ad421536e6d4e1d854aa1fd4bf275bbb2 (patch) | |
| tree | bcf2dc11a2c4fe7b4f2a36e5369eeaaf90420a05 /lisp/dired.el | |
| parent | 702c4b073dfbe1f3289f7d8225e3591897242d27 (diff) | |
| download | emacs-a5dad58ad421536e6d4e1d854aa1fd4bf275bbb2.tar.gz emacs-a5dad58ad421536e6d4e1d854aa1fd4bf275bbb2.tar.bz2 emacs-a5dad58ad421536e6d4e1d854aa1fd4bf275bbb2.zip | |
(dired-font-lock-keywords): Avoid fontifying file names
ending in a colon as directory header.
Diffstat (limited to 'lisp/dired.el')
| -rw-r--r-- | lisp/dired.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index f4087b1323e..2cb5d86a904 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -382,9 +382,6 @@ Subexpression 2 must end right before the \\n or \\r.") (defvar dired-font-lock-keywords (list ;; - ;; Directory headers. - (list dired-subdir-regexp '(1 dired-header-face)) - ;; ;; Dired marks. (list dired-re-mark '(0 dired-mark-face)) ;; @@ -451,6 +448,14 @@ Subexpression 2 must end right before the \\n or \\r.") (unless (get-text-property (1- (point)) 'mouse-face) (dired-move-to-filename))) nil (0 dired-ignored-face)))) + ;; + ;; Explicitly put the default face on file names ending in a colon to + ;; avoid fontifying them as directory header. + (list (concat dired-re-maybe-mark dired-re-inode-size dired-re-perms ".*:$") + '(".+" (dired-move-to-filename) nil (0 default))) + ;; + ;; Directory headers. + (list dired-subdir-regexp '(1 dired-header-face)) ) "Additional expressions to highlight in Dired mode.") |