Function: cedet-idutils-support-for-directory

cedet-idutils-support-for-directory is a byte-compiled function defined in cedet-idutils.el.gz.

Signature

(cedet-idutils-support-for-directory &optional DIR)

Documentation

Return non-nil if ID Utils has a support file for DIR.

If DIR is not supplied, use the current default directory. This works by running lid on a bogus symbol, and looking for the error code.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/cedet-idutils.el.gz
(defun cedet-idutils-support-for-directory (&optional dir)
  "Return non-nil if ID Utils has a support file for DIR.
If DIR is not supplied, use the current default directory.
This works by running lid on a bogus symbol, and looking for
the error code."
  (save-excursion
    (let ((default-directory (or dir default-directory)))
      (condition-case nil
	  (progn
	    (set-buffer (cedet-idutils-fnid-call '("moose")))
	    (goto-char (point-min))
	    (if (looking-at "[^ \n]*fnid: ")
		nil
	      t))
	(error nil)))))