branch: elpa/fj
commit c44ab0e6b500b1018d59e953c3af37f81e847a53
Author: marty hiatt <[email protected]>
Commit: marty hiatt <[email protected]>
reload-paginated: more-cb cbarg end-page else page. FIX #239.
---
fj.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/fj.el b/fj.el
index 276df0077b..dac8792ade 100644
--- a/fj.el
+++ b/fj.el
@@ -3027,7 +3027,8 @@ Conditionally called from the end of
`fj-item-view-more-cb'."
(plist-put viewargs :page new-page)))
(fj-issue-get-timeline-async
repo owner number new-page limit
- #'fj-item-view-more-cb (current-buffer) (point) nil page))))))
+ #'fj-item-view-more-cb (current-buffer) (point) nil
+ (or end-page page)))))))
(defun fj-item-view-more ()
"Load more items to the timeline, if it has more items.
@@ -3066,7 +3067,7 @@ reloading a paginated view."
JSON is the parsed HTTP response, BUF is the buffer to add to, POINT is
where it was prior to updating.
If INIT-PAGE, do not update :page in viewargs.
-END-PAGE means we are at the end, don't go again."
+END-PAGE should be a string of the highest page number to paginate to."
(with-current-buffer buf
(save-excursion
(goto-char point)
