mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
for instance for the case that tab-width is 2.
This commit is contained in:
Gerd Moellmann 2000-09-19 10:38:41 +00:00
parent 6217eb5599
commit 1af25534b3
2 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

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

8
lisp/dired.el
View file

@ -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.")
;;; Macros must be defined before they are used, for the byte compiler.