Update from CEDET trunk.

[gnu-emacs] / lisp / cedet / ede / base.el

diff --git a/lisp/cedet/ede/base.el b/lisp/cedet/ede/base.el
index 283f9dccac795d9af36530079c9b7619a6b4a619..4183ff4c61ab25208d955fef8e4e40001fe0f1b4 100644 (file)
--- a/lisp/cedet/ede/base.el
+++ b/lisp/cedet/ede/base.el
@@ -605,7 +605,7 @@ Display the results as a debug list."
   "Return the ede project which is the root of the current project.
 Optional argument SUBPROJ indicates a subproject to start from
 instead of the current project."
-  (or ede-object-root-project
+  (or (when (not subproj) ede-object-root-project)
       (let* ((cp (or subproj (ede-current-project))))
        (or (and cp (ede-project-root cp))
            (progn