company-eclim--project-name: Simplify

diff --git a/company-eclim.el b/company-eclim.el
index f8a55dc445d88c91e3f2c46b63e60060d8675e50..e6e2fb686fda12b8925cdf62f6f9f0ce1f8a7c49 100644 (file)
--- 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")