Function: ede-proj-elisp-packages-to-loadpath

ede-proj-elisp-packages-to-loadpath is a byte-compiled function defined in proj-elisp.el.gz.

Signature

(ede-proj-elisp-packages-to-loadpath PACKAGES)

Documentation

Convert a list of PACKAGES, to a list of load path.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/ede/proj-elisp.el.gz
;;; Emacs Lisp Compiler
;;; Emacs Lisp Target
(defun ede-proj-elisp-packages-to-loadpath (packages)
  "Convert a list of PACKAGES, to a list of load path."
  (let ((paths nil)
	(ldir nil))
    (while packages
      (or (setq ldir (locate-library (car packages)))
	  (error "Cannot find package %s" (car packages)))
      (let* ((fnd (file-name-directory ldir))
	     (rel (file-relative-name fnd))
	     (full nil)
	     )
	;; Make sure the relative name isn't to far off
	(when (string-match "^\\.\\./\\.\\./\\.\\./\\.\\./\\.\\." rel)
	  (setq full fnd))
	;; Do the setup.
	(setq paths (cons (or full rel) paths)
	      packages (cdr packages))))
    paths))