Function: ede--detect-ldf-root-predicate

ede--detect-ldf-root-predicate is a byte-compiled function defined in detect.el.gz.

Signature

(ede--detect-ldf-root-predicate DIR)

Documentation

Non-nil if DIR no longer match ede--detect-nomatch-auto.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/ede/detect.el.gz
(defun ede--detect-ldf-root-predicate (dir)
  "Non-nil if DIR no longer match `ede--detect-nomatch-auto'."
  ;; `dir' may be "~/".
  (setq dir (expand-file-name dir))
  (or (ede--detect-stop-scan-p dir)
      ;; To know if DIR is at the top, we need to look just above
      ;; to see if there is a match.
      (let ((updir (file-name-directory (directory-file-name dir))))
	(if (equal updir dir)
	    ;; If it didn't change, then obviously this must be the top.
	    t
	  ;; If it is different, check updir for the file.
	  (not (ede-auto-detect-in-dir ede--detect-nomatch-auto updir))))))