diff options
| author | Thien-Thi Nguyen | 2007-02-28 10:44:10 +0000 |
|---|---|---|
| committer | Thien-Thi Nguyen | 2007-02-28 10:44:10 +0000 |
| commit | 8d60fcd50d1809fa27ad333a198035f8d0341131 (patch) | |
| tree | 3b917e3c03fe9baee70a8b75b06034a3341e4930 | |
| parent | 73b21162b6f410e800052ceb943799dbe3ff604a (diff) | |
| download | emacs-8d60fcd50d1809fa27ad333a198035f8d0341131.tar.gz emacs-8d60fcd50d1809fa27ad333a198035f8d0341131.zip | |
(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." | |||
| 95 | (string= dir "..") | 95 | (string= dir "..") |
| 96 | ;; Skip directories which are symlinks | 96 | ;; Skip directories which are symlinks |
| 97 | ;; Easy way to circumvent recursive loops | 97 | ;; Easy way to circumvent recursive loops |
| 98 | (file-symlink-p dir)))) | 98 | (file-symlink-p (expand-file-name dir parent))))) |
| 99 | 99 | ||
| 100 | (defun find-lisp-default-file-predicate (file dir) | 100 | (defun find-lisp-default-file-predicate (file dir) |
| 101 | "True if FILE matches `find-lisp-regexp'. | 101 | "True if FILE matches `find-lisp-regexp'. |