diff options
| author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2007-02-28 10:44:10 +0000 |
|---|---|---|
| committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2007-02-28 10:44:10 +0000 |
| commit | 8d60fcd50d1809fa27ad333a198035f8d0341131 (patch) | |
| tree | 3b917e3c03fe9baee70a8b75b06034a3341e4930 | |
| parent | 73b21162b6f410e800052ceb943799dbe3ff604a (diff) | |
| download | emacs-8d60fcd50d1809fa27ad333a198035f8d0341131.tar.gz | |
(find-lisp-default-directory-predicate):
Fix bug: Do symlink check on expanded filename.
| -rw-r--r-- | lisp/find-lisp.el | 2 |
1 files changed, 1 insertions, 1 deletions
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'. |