Commit 8d60fcd5 authored by Thien-Thi Nguyen's avatar Thien-Thi Nguyen
Browse files

(find-lisp-default-directory-predicate):

Fix bug: Do symlink check on expanded filename.
parent 73b21162
......@@ -95,7 +95,7 @@ PARENT is the parent directory of DIR."
(string= dir "..")
;; Skip directories which are symlinks
;; Easy way to circumvent recursive loops
(file-symlink-p dir))))
(file-symlink-p (expand-file-name dir parent)))))
(defun find-lisp-default-file-predicate (file dir)
"True if FILE matches `find-lisp-regexp'.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment