Function: ede-check-project-directory

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

Signature

(ede-check-project-directory DIR)

Documentation

Check if DIR should be in ede-project-directories.

If it is not, try asking the user if it should be added; if so, add it and save ede-project-directories via Customize. Return nil if DIR should not be in ede-project-directories.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/ede.el.gz
(defun ede-check-project-directory (dir)
  "Check if DIR should be in `ede-project-directories'.
If it is not, try asking the user if it should be added; if so,
add it and save `ede-project-directories' via Customize.
Return nil if DIR should not be in `ede-project-directories'."
  (setq dir (directory-file-name (expand-file-name dir))) ; strip trailing /
  (or (eq ede-project-directories t)
      (and (functionp ede-project-directories)
	   (funcall ede-project-directories dir))
      ;; If `ede-project-directories' is a list, maybe add it.
      (when (listp ede-project-directories)
	(or (member dir ede-project-directories)
	    (when (funcall ede-check-project-query-fcn
			   (format-message
			    "`%s' is not listed in `ede-project-directories'.
Add it to the list of allowed project directories? "
			    dir))
	      (push dir ede-project-directories)
	      ;; If possible, save `ede-project-directories'.
	      (if (or custom-file user-init-file)
		  (let ((coding-system-for-read nil))
		    (customize-save-variable
		     'ede-project-directories
		     ede-project-directories)))
	      t)))))