From 8d60fcd50d1809fa27ad333a198035f8d0341131 Mon Sep 17 00:00:00 2001
From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Wed, 28 Feb 2007 10:44:10 +0000
Subject: [PATCH] (find-lisp-default-directory-predicate): Fix bug: Do symlink
 check on expanded filename.

---
 lisp/find-lisp.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/find-lisp.el b/lisp/find-lisp.el
index 18e30ef37eb..0dd35f23514 100644
--- a/lisp/find-lisp.el
+++ b/lisp/find-lisp.el
@@ -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'.
-- 
2.39.5