Merge branch 'develop' (v0.37.2)

syl20bnr · Dec 22, 2014 · 7c412f5 · 7c412f5
2 parents 0775dcf + 653a341
commit 7c412f5
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/core/config-system.el b/core/config-system.el
@@ -159,18 +159,18 @@ the following keys:
          (base-dir (config-system/get-layer-path sym))
          (dir (format "%s%s/" base-dir sym-name))
          (ext-dir (format "%sextensions/" dir)))
-    (if (file-exists-p dir)
-        (cons sym (list :dir dir :ext-dir ext-dir))
-      (spacemacs/message "Warning: layer %s does not exist in dir %s!"
-                         sym-name dir))))
+    (when (and base-dir (file-exists-p dir))
+        (cons sym (list :dir dir :ext-dir ext-dir)))))
 
 (defun config-system/get-layers-list ()
   "Return a list of all discovered layer symbols."
   (ht-keys config-system-layer-paths))
 
 (defun config-system/get-layer-path (layer)
   "Return the path for LAYER symbol."
-  (ht-get config-system-layer-paths layer))
+  (let ((path (ht-get config-system-layer-paths layer)))
+    (unless path (spacemacs/message "Warning: Cannot find layer %s !" layer))
+    path))
 
 (defun config-system/load-layers ()
   "Load all declared layers."