Function: cedet-idutils-expand-filename

cedet-idutils-expand-filename is an interactive and byte-compiled function defined in cedet-idutils.el.gz.

Signature

(cedet-idutils-expand-filename FILENAME)

Documentation

Expand the FILENAME with ID Utils.

Return a filename relative to the default directory.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/cedet-idutils.el.gz
;;; UTIL CALLS
;;
(defun cedet-idutils-expand-filename (filename)
  "Expand the FILENAME with ID Utils.
Return a filename relative to the default directory."
  (interactive "sFile: ")
  (let ((ans (with-current-buffer (cedet-idutils-fnid-call (list filename))
	       (goto-char (point-min))
	       (if (looking-at "[^ \n]*fnid: ")
		   (error "ID Utils not available")
		 (split-string (buffer-string) "\n" t)))))
    (setq ans (mapcar #'expand-file-name ans))
    (when (called-interactively-p 'interactive)
      (if ans
	  (if (= (length ans) 1)
	      (message "%s" (car ans))
	    (message "%s + %d others" (car ans)
		     (length (cdr ans))))
	(error "No file found")))
    ans))