[Emacs-diffs] scratch/project fc4ab93 5/5: Actually define project-root for a `user' project

[Dmitry Gutov]

branch: scratch/project
commit fc4ab939614e9f5b4de40c05f401a8509f2ba5be
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    Actually define project-root for a `user' project
---
 lisp/progmodes/project.el |    8 +++++---
 1 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 118095a..77f28e5 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -69,7 +69,6 @@ be edited together).  The directory names should be absolute."
   (cdr project))
 
 (declare-function ede-directory-get-open-project "ede")
-(declare-function ede-project-root "ede")
 
 (defun project-try-ede (dir)
   (when (featurep 'ede)
@@ -82,11 +81,14 @@ be edited together).  The directory names should be 
absolute."
         (cons 'ede
               (ede-directory-get-open-project project-dir 'ROOT))))))
 
+(cl-defmethod project-root ((project (head ede)))
+  (ede-project-root-directory (cdr project)))
+
 (defun project-ask-user (dir)
   (cons 'user (read-directory-name "Project root: " dir nil t)))
 
-(cl-defmethod project-root ((project (head ede)))
-  (ede-project-root-directory (cdr project)))
+(cl-defmethod project-root ((project (head user)))
+  (cdr project))
 
 (provide 'project)
 ;;; project.el ends here