procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
Fix bug: Do symlink check on expanded filename.
This commit is contained in:
Thien-Thi Nguyen 2007-02-28 10:44:10 +00:00
parent 73b21162b6
commit 8d60fcd50d
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/find-lisp.el
View file

@ -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'.