Check `twittering-timer-for-redisplaying' before setting timer.

* twittering-mode.el (twittering-start): check the value of `twittering-timer-for-redisplaying' before setting timer.
hayamiz · Apr 3, 2010 · a50d778 · a50d778
1 parent f80d8e8
commit a50d778
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git 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  <tad@mymail.twin.jp>
 
 	* twittering-mode.el (twittering-get-response-header): return nil

diff --git 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