From 49ccfdc2202cb8d71638e115509fc20d487a0da1 Mon Sep 17 00:00:00 2001 From: Jonathan Leech-Pepin Date: Mon, 17 Nov 2014 17:47:20 -0500 Subject: Fix mistakes: - sx-network--user-information is a var not a function - remember to setq sx-network--user-sites. --- sx-networks.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'sx-networks.el') 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.") -- cgit v1.2.3