From f5e4d0dee2116aeb905b835d43ec1a237af80d02 Mon Sep 17 00:00:00 2001 From: Satoshi Yatagawa Date: Wed, 10 Mar 2010 19:02:05 +0900 Subject: [PATCH] (twittering-goto-next-status): show a progress message. (twittering-goto-previous-status): likewise. --- ChangeLog | 4 ++++ twittering-mode.el | 18 ++++++++++-------- 2 files changed, 14 insertions(+), 8 deletions(-) diff --git a/ChangeLog b/ChangeLog index 5aced64f..e9ee6a9b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -6,6 +6,10 @@ * twittering-mode.el (twittering-mode-map): Use `kbd' macro same as other keymaps. + * twittering-mode.el (twittering-goto-next-status): Show a + progress message. + (twittering-goto-previous-status): Likewise. + 2010-03-09 Tadashi MATSUO * twittering-mode.el (twittering-redisplay-status-on-buffer): call diff --git a/twittering-mode.el b/twittering-mode.el index 6f560d65..6b968068 100644 --- a/twittering-mode.el +++ b/twittering-mode.el @@ -3631,10 +3631,11 @@ Return nil if no statuses are rendered." (let ((prev (twittering-get-previous-status-head))) (when prev (get-text-property prev 'id)))))) - (if id - (twittering-get-and-render-timeline - (twittering-current-timeline-spec) - nil id))))))) + (when id + (message "Get more previous timeline...") + (twittering-get-and-render-timeline + (twittering-current-timeline-spec) + nil id))))))) (defun twittering-get-next-status-head (&optional pos) "Search forward from POS for the nearest head of a status. @@ -3659,10 +3660,11 @@ The return value is nil or a positive integer greater than POS." (let ((next (twittering-get-next-status-head))) (when next (get-text-property next 'id)))))) - (if id - (twittering-get-and-render-timeline - (twittering-current-timeline-spec-string) - nil id)))) + (when id + (message "Get more previous timeline...") + (twittering-get-and-render-timeline + (twittering-current-timeline-spec-string) + nil id)))) (t (message "The latest status.")))))