From: Dmitry Gutov <dgutov@yandex.ru>
Date: Sat, 23 Mar 2013 23:52:56 +0000 (+0400)
Subject: company-eclim--project-name: Simplify
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/43d9131e07bceb60ab136074b1d32becb5be0c02

company-eclim--project-name: Simplify
---

diff --git a/company-eclim.el b/company-eclim.el
index f8a55dc44..e6e2fb686 100644
--- a/company-eclim.el
+++ b/company-eclim.el
@@ -98,11 +98,9 @@ eclim can only complete correctly when the buffer has been saved."
       (let ((dir (company-eclim--project-dir)))
         (when dir
           (setq company-eclim--project-name
-                (let ((project (loop for project in (company-eclim--project-list)
-                                     when (equal (cdr (assoc 'path project)) dir)
-                                     return project)))
-                  (when project
-                    (cdr (assoc 'name project)))))))))
+                (loop for project in (company-eclim--project-list)
+                      when (equal (cdr (assoc 'path project)) dir)
+                      return (cdr (assoc 'name project))))))))
 
 (defun company-eclim--candidates (prefix)
   (interactive "d")