diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-09-19 10:38:41 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-09-19 10:38:41 +0000 |
| commit | 1af25534b33829f03d79d49b61341f59db2fbcd2 (patch) | |
| tree | 720fa632bb91a3681270fe3e405f0115df532ff7 /lisp | |
| parent | 6217eb5599f79aefabe1a56ac68d94a8278b683c (diff) | |
| download | emacs-1af25534b33829f03d79d49b61341f59db2fbcd2.tar.gz emacs-1af25534b33829f03d79d49b61341f59db2fbcd2.tar.bz2 emacs-1af25534b33829f03d79d49b61341f59db2fbcd2.zip | |
(dired-font-lock-keywords): Allow tabs and spaces,
for instance for the case that tab-width is 2.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/dired.el | 8 |
2 files changed, 9 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b03c043c7e1..9a59fdfeb6d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 diff --git a/lisp/dired.el b/lisp/dired.el index 393635452a1..28ac4e96088 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -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. |