Mercurial > emacs
changeset 76230:3e1deb9ccdf5
(find-lisp-default-directory-predicate):
Fix bug: Do symlink check on expanded filename.
| author | Thien-Thi Nguyen <ttn@gnuvola.org> |
|---|---|
| date | Wed, 28 Feb 2007 10:44:10 +0000 |
| parents | 4d6483701b77 |
| children | 29b94099e419 |
| files | lisp/find-lisp.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/find-lisp.el Wed Feb 28 10:14:40 2007 +0000 +++ b/lisp/find-lisp.el Wed Feb 28 10:44:10 2007 +0000 @@ -95,7 +95,7 @@ (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'.