Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
1af25534
Commit
1af25534
authored
Sep 19, 2000
by
Gerd Moellmann
Browse files
(dired-font-lock-keywords): Allow tabs and spaces,
for instance for the case that tab-width is 2.
parent
6217eb55
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
9 additions
and
4 deletions
+9
-4
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/dired.el
lisp/dired.el
+4
-4
No files found.
lisp/ChangeLog
View file @
1af25534
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
...
...
lisp/dired.el
View file @
1af25534
...
...
@@ -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.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment