Function: project-try-ede

project-try-ede is a byte-compiled function defined in ede.el.gz.

Signature

(project-try-ede DIR)

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/ede.el.gz
;;; Integration with project.el

(defun project-try-ede (dir)
  ;; FIXME: This passes the `ROOT' dynbound variable, but I don't know
  ;; where it comes from!
  (let ((project-dir
         (locate-dominating-file
          dir
          (lambda (dir)
            (ede-directory-get-open-project dir 'ROOT)))))
    (when project-dir
      (ede-directory-get-open-project project-dir 'ROOT))))