Function: ede-normalize-file/directory

ede-normalize-file/directory is a byte-compiled function defined in base.el.gz.

Signature

(ede-normalize-file/directory THIS PROJECT-FILE-NAME)

Documentation

Fills :directory or :file slots if they're missing in project THIS.

The other slot will be used to calculate values. PROJECT-FILE-NAME is a name of project file (short name, like pom.xml, etc.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/ede/base.el.gz
;;; Utility functions
;;

(defun ede-normalize-file/directory (this project-file-name)
  "Fills :directory or :file slots if they're missing in project THIS.
The other slot will be used to calculate values.
PROJECT-FILE-NAME is a name of project file (short name, like `pom.xml', etc."
  (when (and (or (not (slot-boundp this :file))
		 (not (oref this file)))
	     (slot-boundp this :directory)
	     (oref this directory))
    (oset this file (expand-file-name project-file-name (oref this directory))))
  (when (and (or (not (slot-boundp this :directory))
		 (not (oref this directory)))
	     (slot-boundp this :file)
	     (oref this file))
    (oset this directory (file-name-directory (oref this file))))
  )