mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

(dired-font-lock-keywords): Avoid fontifying file names

Browse Source 
ending in a colon as directory header.
This commit is contained in:
Andreas Schwab 2008-12-01 16:07:19 +00:00
parent 702c4b073d
commit a5dad58ad4
2 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2008-12-01 Andreas Schwab <schwab@suse.de>
* dired.el (dired-font-lock-keywords): Avoid fontifying file names
ending in a colon as directory header.
2008-12-01 Kenichi Handa <handa@m17n.org>
* international/uni-numeric.el: Re-generated.

11
lisp/dired.el
View File

@ -381,9 +381,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.")