diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-26 00:47:59 +0000 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-26 00:47:59 +0000 |
| commit | c38dd4d9d23cbf1299e10b8a441855ba22ff567f (patch) | |
| tree | c5bc7cc48cdfed1c0f831fb46b7c99ab1c4b7345 | |
| parent | 26f140c4a9b4aa4a76586cd9f4531afbbdfb5f42 (diff) | |
A bug fix on the dataset.
The question-list--dataset is now a list, not a vector.
| -rw-r--r-- | sx-question-list.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/sx-question-list.el b/sx-question-list.el index 36a3c51..da2faee 100644 --- a/sx-question-list.el +++ b/sx-question-list.el @@ -427,8 +427,10 @@ This does not update `sx-question-mode--window'." (forward-line -1) (when (functionp sx-question-list--next-page-function) ;; Try to get more questions - (let ((list (funcall sx-question-list--next-page-function - (1+ sx-question-list--pages-so-far)))) + (let ((list + (cl-map 'list #'identity + (funcall sx-question-list--next-page-function + (1+ sx-question-list--pages-so-far))))) (if (null list) (message "No further questions.") ;; If it worked, increment the variable. @@ -436,7 +438,8 @@ This does not update `sx-question-mode--window'." ;; And update the dataset. ;; @TODO: Check for duplicates. (setq sx-question-list--dataset - (append sx-question-list--dataset list)) + (append sx-question-list--dataset + list)) (sx-question-list-refresh 'redisplay 'no-update) (forward-line 1))))) |