Function: ede-proj-elisp-add-path

ede-proj-elisp-add-path is a byte-compiled function defined in proj-elisp.el.gz.

Signature

(ede-proj-elisp-add-path PATH)

Documentation

Add path PATH into the file if it isn't already there.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/ede/proj-elisp.el.gz
(defun ede-proj-elisp-add-path (path)
  "Add path PATH into the file if it isn't already there."
  (goto-char (point-min))
  (if (re-search-forward (concat "(cons \\\""
				 (regexp-quote path))
			 nil t)
      nil;; We have it already
    (if (re-search-forward "(cons nil" nil t)
	(progn
	  ;; insert stuff here
	  (end-of-line)
	  (insert "\n"
		  "   echo \"(setq load-path (cons \\\""
		  path
		  "\\\" load-path))\" >> script")
	  )
      (error "Don't know how to update load path"))))