# HG changeset patch
# User Thien-Thi Nguyen <ttn@gnuvola.org>
# Date 1172659450 0
# Node ID 3e1deb9ccdf5039deb0f21895cf49a2bce82cbb0
# Parent  4d6483701b771798de09f3e2e41682aac3f6ce5c
(find-lisp-default-directory-predicate):
Fix bug: Do symlink check on expanded filename.

diff -r 4d6483701b77 -r 3e1deb9ccdf5 lisp/find-lisp.el
--- 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'.