Mercurial > emacs
changeset 31706:2eb77e04a185
(dired-font-lock-keywords): Allow tabs and spaces,
for instance for the case that tab-width is 2.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 19 Sep 2000 10:38:25 +0000 |
| parents | 9fec94425d43 |
| children | 785a57d59501 |
| files | lisp/dired.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired.el Tue Sep 19 02:43:33 2000 +0000 +++ b/lisp/dired.el Tue Sep 19 10:38:25 2000 +0000 @@ -275,7 +275,7 @@ ;; 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 @@ ;; ;; 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 @@ ;; 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.