diff --git a/ChangeLog b/ChangeLog index 5982b58d..3ca58bd4 100644 --- a/ChangeLog +++ b/ChangeLog @@ -3,6 +3,9 @@ * twittering-mode.el (twittering-buffer-active-p): renamed `twittering-buffer-related-p'. + * twittering-mode.el (twittering-start): check the value of + `twittering-timer-for-redisplaying' before setting timer. + 2010-03-30 Tadashi MATSUO * twittering-mode.el (twittering-get-response-header): return nil diff --git a/twittering-mode.el b/twittering-mode.el index 64f7a12e..4339fe41 100644 --- a/twittering-mode.el +++ b/twittering-mode.el @@ -3499,12 +3499,12 @@ variable `twittering-status-format'." (interactive) (if (null action) (setq action #'twittering-current-timeline-noninteractive)) - (if twittering-timer - nil + (unless twittering-timer (setq twittering-timer (run-at-time "0 sec" twittering-timer-interval - #'twittering-timer-action action)) + #'twittering-timer-action action))) + (unless twittering-timer-for-redisplaying (setq twittering-timer-for-redisplaying (run-at-time "0 sec" twittering-timer-interval-for-redisplaying