branch: externals/ergoemacs-mode
commit daec6a1c4b261552b9678d5a1a021f3d49e28858
Author: Fidler <[email protected]>
Commit: Fidler <[email protected]>
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)))
