[Emacs-diffs] scratch/last-cedet-merge 0a2b38b 26/37: EDE: Expand file name

[David Engster]

branch: scratch/last-cedet-merge
commit 0a2b38be2b1d311575b53dcee349ddd49e466871
Author: Eric Ludlam <address@hidden>
Commit: David Engster <address@hidden>

    EDE: Expand file name
    
    * lisp/cedet/ede/auto.el (ede-calc-fromconfig): Expand the found file
     name.
---
 lisp/cedet/ede/auto.el |    9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/lisp/cedet/ede/auto.el b/lisp/cedet/ede/auto.el
index a77de92..30419e8 100644
--- a/lisp/cedet/ede/auto.el
+++ b/lisp/cedet/ede/auto.el
@@ -65,10 +65,11 @@ into memory.")
 
 (cl-defmethod ede-calc-fromconfig ((dirmatch ede-project-autoload-dirmatch))
   "Calculate the value of :fromconfig from DIRMATCH."
-  (let ((fc (oref dirmatch fromconfig)))
-    (cond ((stringp fc) fc)
-         ((functionp fc) (funcall fc))
-         (t (error "Unknown dirmatch object match style.")))
+  (let* ((fc (oref dirmatch fromconfig))
+        (found (cond ((stringp fc) fc)
+                     ((functionp fc) (funcall fc))
+                     (t (error "Unknown dirmatch object match style.")))))
+    (expand-file-name found)
     ))