diff options
| author | Juri Linkov <juri@linkov.net> | 2022-08-27 22:43:40 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2022-08-27 22:43:40 +0300 |
| commit | 0ab49d46ddbe27970c62a56597de000bc1c3232c (patch) | |
| tree | 460023d68311d8685bff8c426faea5f75eb5e3e0 /lisp/dired.el | |
| parent | f427b985a1857523412a846fcaa9082c87c0bbd1 (diff) | |
| download | emacs-0ab49d46ddbe27970c62a56597de000bc1c3232c.tar.gz emacs-0ab49d46ddbe27970c62a56597de000bc1c3232c.tar.bz2 emacs-0ab49d46ddbe27970c62a56597de000bc1c3232c.zip | |
Use a list of text properties to search in symlink filenames in Wdired
* lisp/dired-aux.el (dired-isearch-search-filenames):
Use text properties 'dired-filename' and 'dired-symlink-filename'.
* lisp/dired.el (dired-font-lock-keywords): Add text property
'dired-symlink-filename' on symlinks.
* lisp/isearch.el (isearch-search-fun-in-text-property):
Support a list of text properties (bug#57293).
Diffstat (limited to 'lisp/dired.el')
| -rw-r--r-- | lisp/dired.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index f45d215ed60..fa06c8fd441 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -786,7 +786,7 @@ Subexpression 2 must end right before the \\n.") nil '(1 'dired-broken-symlink) '(2 dired-symlink-face) - '(3 'dired-broken-symlink))) + '(3 '(face dired-broken-symlink dired-symlink-filename t)))) ;; ;; Symbolic link to a directory. (list dired-re-sym @@ -798,7 +798,7 @@ Subexpression 2 must end right before the \\n.") '(dired-move-to-filename) nil '(1 dired-symlink-face) - '(2 dired-directory-face))) + '(2 '(face dired-directory-face dired-symlink-filename t)))) ;; ;; Symbolic link to a non-directory. (list dired-re-sym @@ -812,7 +812,7 @@ Subexpression 2 must end right before the \\n.") '(dired-move-to-filename) nil '(1 dired-symlink-face) - '(2 'default))) + '(2 '(face default dired-symlink-filename t)))) ;; ;; Sockets, pipes, block devices, char devices. (list dired-re-special |