erlang.el.diff

diff --git a/lib/tools/emacs/erlang.el b/lib/tools/emacs/erlang.el
index c56759e..16b054f 100644
--- a/lib/tools/emacs/erlang.el
+++ b/lib/tools/emacs/erlang.el
@@ -5426,14 +5426,16 @@ unless the optional NO-DISPLAY is non-nil."
 (defun inferior-erlang-compile-outdir ()
   "Return the directory to compile the current buffer into."
   (let* ((buffer-dir (directory-file-name
-		      (file-name-directory (erlang-local-buffer-file-name))))
-	 (parent-dir (directory-file-name
-		      (file-name-directory buffer-dir)))
-         (ebin-dir (concat (file-name-as-directory parent-dir) "ebin"))
-	 (buffer-dir-base-name (file-name-nondirectory 
-				(expand-file-name
-				 (concat (file-name-as-directory buffer-dir)
-					 ".")))))
+                      (file-name-directory (erlang-local-buffer-file-name))))
+         (parent-dir (directory-file-name
+                      (file-name-directory buffer-dir)))
+         (app-name (car (last (split-string parent-dir "/"))))
+
+         (ebin-dir (concat (file-name-as-directory parent-dir) "_build/default/lib/" app-name "/ebin"))
+         (buffer-dir-base-name (file-name-nondirectory
+                                (expand-file-name
+                                 (concat (file-name-as-directory buffer-dir)
+                                         ".")))))
     (if (and (string= buffer-dir-base-name "src")
 	     (file-directory-p ebin-dir))
 	(file-name-as-directory ebin-dir)