diff options
author | Jonathan Leech-Pepin <jonathan.leechpepin@gmail.com> | 2014-11-17 17:47:20 -0500 |
---|---|---|
committer | Jonathan Leech-Pepin <jonathan.leechpepin@gmail.com> | 2014-11-17 17:47:20 -0500 |
commit | 49ccfdc2202cb8d71638e115509fc20d487a0da1 (patch) | |
tree | e4a43a76070687dacda9c9aa72b814e25826c10c | |
parent | 7e6d1a3663b2d9fb21c104c8cc145cb9bf65c85d (diff) |
Fix mistakes:
- sx-network--user-information is a var not a function
- remember to setq sx-network--user-sites.
-rw-r--r-- | sx-networks.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/sx-networks.el b/sx-networks.el index 5e6a96d..3a33f1a 100644 --- a/sx-networks.el +++ b/sx-networks.el @@ -76,7 +76,8 @@ This should be called during initialization." (or (sx-network--get-associated) (sx-network--update))) ((not sx-network--user-sites) - (sx-network--map-site-url-to-site-api)))) + (setq sx-network--user-sites + (sx-network--map-site-url-to-site-api))))) (defun sx-network--map-site-url-to-site-api () "Convert `me/associations' to a set of `api_site_parameter's. @@ -93,7 +94,7 @@ list of sites the user is active on." (let ((u-site (cdr (assoc 'site_url loc)))) (when (member u-site (mapcar 'car sites-info)) (cdr (assoc u-site sites-info))))) - (sx-network--user-information)))) + sx-network--user-information))) (defvar sx-network--user-information nil "User information for the various sites.") |