diff options
| author | Jonathan Leech-Pepin <jonathan.leechpepin@gmail.com> | 2014-11-18 07:38:42 -0500 |
|---|---|---|
| committer | Jonathan Leech-Pepin <jonathan.leechpepin@gmail.com> | 2014-11-18 07:38:42 -0500 |
| commit | f813286cf44b8e1bdf7d2003f7f5b1fe870f613d (patch) | |
| tree | c0454c10c01b7a9082ab523d84d2af3a32da3dd1 | |
| parent | 1715dfecb488bcfd487e1150adc92875aa2f8c10 (diff) | |
Fixes as per Github comments
sx-favorites--user-favorite-list: Clarify docstring
(sx-favorites--ensure-favorite-list): Remove extraneous argument
| -rw-r--r-- | sx-favorites.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/sx-favorites.el b/sx-favorites.el index 0b9527a..497ef1a 100644 --- a/sx-favorites.el +++ b/sx-favorites.el @@ -39,17 +39,18 @@ (defvar sx-favorites--user-favorite-list nil "Alist of questions favorited by the user. -Each element has the form (SITE FAVORITE-LIST). -And each element in FAVORITE-LIST has the form QUESTION_ID.") -(defun sx-favorites--ensure-favorite-list (site) +Each element has the form (SITE FAVORITE-LIST). And each element +in FAVORITE-LIST is the numerical QUESTION_ID.") + +(defun sx-favorites--ensure-favorite-list () (unless sx-favorites--user-favorite-list (setq sx-favorites--user-favorite-list (sx-cache-get 'question-favorites (let ((sites - (mapcar '(lambda (site) - `(,site)) + (mapcar (lambda (site) + `(,site)) sx-network--user-sites))) `(quote ,sites)))))) |