Function: ede-auto-detect-in-dir

ede-auto-detect-in-dir is a byte-compiled function defined in auto.el.gz.

Signature

(ede-auto-detect-in-dir ARG &rest ARGS)

Implementations

((this ede-project-autoload) dir) in `ede/auto.el'.

Return non-nil if THIS project autoload is found in DIR.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/ede/auto.el.gz
;;; Project Autoload Methods
;;

;; New method using detect.el
(cl-defmethod ede-auto-detect-in-dir ((this ede-project-autoload) dir)
  "Return non-nil if THIS project autoload is found in DIR."
  (let* ((d (file-name-as-directory dir))
	 (pf (oref this proj-file))
	 (f (when (stringp pf) (expand-file-name pf d))))
    (if f
	(and f (file-exists-p f))
      (let ((dirmatch (oref this proj-root-dirmatch)))
	(cond
	 ((stringp dirmatch)
	  nil) ; <- do something here - maybe obsolete the option?
	 ((ede-project-autoload-dirmatch-p dirmatch)
	  (if (and dirmatch (ede-dirmatch-installed dirmatch))
	      (ede-do-dirmatch dirmatch dir)
	    ;(message "Dirmatch %S not installed." dirmatch)
	    )))))))