[nongnu] elpa/mastodon 8404082b69 02/52: move scroll up cmd

[ELPA Syncer]

branch: elpa/mastodon
commit 8404082b696b730b3ee625474ece49f4011e02f2
Author: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Commit: marty hiatt <martianhiatus [a t] riseup [d o t] net>

    move scroll up cmd
---
 lisp/mastodon-tl.el | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 68147d9b46..62d3d673c8 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -311,6 +311,15 @@ than `switch-to-buffer'."
 
 ;;; NAV
 
+(defun mastodon-tl--scroll-up-command ()
+  "Call `scroll-up-command', loading more toots if necessary.
+If we hit `point-max', call `mastodon-tl--more' then `scroll-up-command'."
+  (interactive)
+  (if (not (equal (point) (point-max)))
+      (scroll-up-command)
+    (mastodon-tl--more)
+    (scroll-up-command)))
+
 (defun mastodon-tl--next-tab-item (&optional previous)
   "Move to the next interesting item.
 This could be the next toot, link, or image; whichever comes first.
@@ -359,15 +368,6 @@ Optionally start from POS."
           (mastodon-tl--message-help-echo))
       (funcall refresh))))
 
-(defun mastodon-tl--scroll-up-command ()
-  "Call `scroll-up-command', loading more toots if necessary.
-If we hit `point-max', call `mastodon-tl--more' then `scroll-up-command'."
-  (interactive)
-  (if (not (equal (point) (point-max)))
-      (scroll-up-command)
-    (mastodon-tl--more)
-    (scroll-up-command)))
-
 (defun mastodon-tl--goto-next-toot ()
   "Jump to next toot header."
   (interactive)