Re: Again: `find-lisp-default-directory-predicate' and symlinks

[storm@cua.dk (Kim F. Storm)]

"Stuart D. Herring" <herring@lanl.gov> writes:

> $ cvs update tells me that my 1-line find-lisp.el bugfix mentioned at
>
> http://lists.gnu.org/archive/html/emacs-devel/2006-08/msg00262.html
>
> has never been applied, nor was it rejected in a reply email (that I saw).
>  May I have it looked at again before the release?

Here's the original posting:

Isn't this trivial patch needed to get
`find-lisp-default-directory-predicate' to actually detect symlinks?  (See
`find-lisp-default-file-predicate' for comparison.)  If so, please
install.

Thanks,
Davis

*** find-lisp.el.~1.13.~        2006-02-13 18:21:31.000000000 -0700
--- find-lisp.el        2006-08-07 16:52:21.000000000 -0600
***************
*** 96,102 ****
           (string= dir "..")
           ;; Skip directories which are symlinks
           ;; Easy way to circumvent recursive loops
!          (file-symlink-p dir))))

  (defun find-lisp-default-file-predicate  (file dir)
    "True if FILE matches `find-lisp-regexp'.
--- 96,102 ----
           (string= dir "..")
           ;; Skip directories which are symlinks
           ;; Easy way to circumvent recursive loops
!          (file-symlink-p (expand-file-name dir parent)))))

  (defun find-lisp-default-file-predicate  (file dir)
    "True if FILE matches `find-lisp-regexp'.



-- 
Kim F. Storm <storm@cua.dk> http://www.cua.dk