[elpa] externals/ergoemacs-mode daec6a1 38/87: May Fix Issue #453

[Stefan Monnier]

branch: externals/ergoemacs-mode
commit daec6a1c4b261552b9678d5a1a021f3d49e28858
Author: Fidler <matthew.fidler@gmail.com>
Commit: Fidler <matthew.fidler@gmail.com>

    May Fix Issue #453
---
 ergoemacs-map.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/ergoemacs-map.el b/ergoemacs-map.el
index c2a77a7..15a1040 100644
--- a/ergoemacs-map.el
+++ b/ergoemacs-map.el
@@ -240,12 +240,13 @@ save the infromationin the `ergoemacs-map--alist' hash."
   "Apply maps for ALISTS.
 
 SYMBOL is the symbol where this alist is located and is used to
-save the infromationin the `ergoemacs-map--alist' hash."
+save the information in the `ergoemacs-map--alist' hash."
   (let (old-len)
     ;; Only modify if the list has changed length.
     (if (and symbol
              (setq old-len (ergoemacs-gethash symbol ergoemacs-map--alist))
-             (= (length alists) old-len)) alists
+             (= (length alists) old-len))
+       alists
       (when symbol
         (puthash symbol (length alists) ergoemacs-map--alist)
         (setq ergoemacs-map--breadcrumb (format "%s:%s" 
ergoemacs-map--breadcrumb symbol)))
@@ -254,6 +255,7 @@ save the infromationin the `ergoemacs-map--alist' hash."
          (cond
           ((consp elt)
            (ergoemacs-map--alist (list elt)))
+         ((not (boundp elt)))
           (t
            (set elt (ergoemacs-map--alist (symbol-value elt) elt))
            elt)))