`find-lisp-default-directory-predicate' and symlinks

[Stuart D. Herring]

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'.

-- 
This product is sold by volume, not by mass.  If it appears too dense or
too sparse, it is because mass-energy conversion has occurred during
shipping.