[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#39145: 28.0.50; dired: Show broken/circular links in different font
|
From: |
Juri Linkov |
|
Subject: |
bug#39145: 28.0.50; dired: Show broken/circular links in different font |
|
Date: |
Thu, 16 Jan 2020 01:13:32 +0200 |
|
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/27.0.60 (x86_64-pc-linux-gnu) |
> @@ -538,6 +549,18 @@ dired-font-lock-keywords
> (list dired-re-dir
> '(".+" (dired-move-to-filename) nil (0 dired-directory-face)))
> ;;
> + ;; Broken Symbolic link.
> + (list dired-re-sym
> + (list (lambda (end)
> + (let* ((file (dired-file-name-at-point))
> + (truename (ignore-errors (file-truename file))))
> + ;; either links to unexistent files or circular links
> + (and (not (and truename (file-exists-p truename)))
> + (search-forward-regexp ".+-> ?.+" end t))))
> + '(dired-move-to-filename)
Does this mean file-exists-p will be called on every file in the directory?