Function: ede-up-directory

ede-up-directory is a byte-compiled function defined in files.el.gz.

Signature

(ede-up-directory DIR)

Documentation

Return a dir that is up one directory.

Argument DIR is the directory to trim upwards.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/ede/files.el.gz
;;; UTILITIES
;;

(defun ede-up-directory (dir)
  "Return a dir that is up one directory.
Argument DIR is the directory to trim upwards."
  (let* ((fad (directory-file-name dir))
	 (fnd (file-name-directory fad)))
    (if (string= dir fnd) ; This will catch the old string-match against
			  ; c:/ for DOS like systems.
	nil
      fnd)))