sources/emacs/site/misc/dumb-jump.el: Use ni-find-search-directory to find the project root ;

Author: prenaux

sources/emacs/site/misc/dumb-jump.el

@@ -1770,7 +1770,7 @@ a symbol then it's probably a function call"
                                (string :tag "Regular expression")))))))
 
 (defcustom dumb-jump-project-denoters
-  '(".dumbjump" ".projectile" ".git" ".hg" ".fslckout" ".bzr" "_darcs" ".svn" "Makefile" "PkgInfo" "-pkg.el")
+  '(".dumbjump" ".projectile" ".git" ".hg" ".fslckout" ".bzr" "_darcs" ".svn" "Makefile" "PkgInfo" "-pkg.el" "_ham_project" "TARGETS")
   "Files and directories that signify a directory is a project root."
   :group 'dumb-jump
   :type '(repeat (string  :tag "Name")))
@@ -2088,13 +2088,7 @@ for user to select.  Filters PROJ path from files for display."
 
 (defun dumb-jump-get-project-root (filepath)
   "Keep looking at the parent dir of FILEPATH until a denoter file/dir is found."
-  (s-chop-suffix
-   "/"
-   (expand-file-name
-    (or
-     dumb-jump-project
-     (locate-dominating-file filepath #'dumb-jump-get-config)
-     dumb-jump-default-project))))
+  (ni-find-search-directory filepath))
 
 (defun dumb-jump-get-config (dir)
   "If a project denoter is in DIR then return it, otherwise