Index: lang/elisp/twittering-mode/branches/RB-0.3/twittering-mode.el
===================================================================
--- lang/elisp/twittering-mode/branches/RB-0.3/twittering-mode.el (revision 11)
+++ lang/elisp/twittering-mode/branches/RB-0.3/twittering-mode.el (revision 25)
@@ -7,5 +7,5 @@
 ;;         Tsuyoshi CHO <Tsuyoshi.CHO+develop@Gmail.com>
 ;; Created: Sep 4, 2007
-;; Version: SVN-HEAD
+;; Version: 0.3
 ;; Keywords: twitter web
 ;; URL: http://lambdarepos.svnrepository.com/share/trac.cgi/browser/lang/elisp/twittering-mode
@@ -50,5 +50,5 @@
 (defvar twittering-mode-map (make-sparse-keymap))
 
-(defvar twittering-timer nil)
+(defvar twittering-timer nil "Timer object for timeline refreshing will be stored here. DO NOT SET VALUE MANUALLY.")
 
 (defvar twittering-idle-time 20)
@@ -107,4 +107,6 @@
 (defun assocref (item alist)
   (cdr (assoc item alist)))
+(defmacro list-push (value listvar)
+  `(setq ,listvar (cons ,value ,listvar)))
 
 ;;; Proxy
@@ -432,5 +434,5 @@
 	(setq c (string-to-char (match-string-no-properties 1 format-str)))
 	(if (> found-at cursor)
-	    (push (substring format-str cursor found-at) result)
+	    (list-push (substring format-str cursor found-at) result)
 	  "|")
 	(setq cursor (match-end 1))
@@ -438,29 +440,29 @@
 	(case c
 	  ((?s)				; %s - screen_name
-	   (push (attr 'user-screen-name) result))
+	   (list-push (attr 'user-screen-name) result))
 	  ((?S)				; %S - name
-	   (push (attr 'user-name) result))
+	   (list-push (attr 'user-name) result))
 	  ((?i)				; %i - profile_image
-	   (push (profile-image) result))
+	   (list-push (profile-image) result))
 	  ((?d)				; %d - description
-	   (push (attr 'user-description) result))
+	   (list-push (attr 'user-description) result))
 	  ((?l)				; %l - location
-	   (push (attr 'user-location) result))
+	   (list-push (attr 'user-location) result))
 	  ((?L)				; %L - " [location]"
 	   (let ((location (attr 'user-location)))
 	     (unless (or (null location) (string= "" location))
-	       (push (concat " [" location "]") result)) ))
+	       (list-push (concat " [" location "]") result)) ))
 	  ((?u)				; %u - url
-	   (push (attr 'user-url) result))
+	   (list-push (attr 'user-url) result))
 	  ((?j)				; %j - user.id
-	   (push (attr 'user-id) result))
+	   (list-push (attr 'user-id) result))
 	  ((?p)				; %p - protected?
 	   (let ((protected (attr 'user-protected)))
 	     (when (string= "true" protected)
-	       (push "[x]" result))))
+	       (list-push "[x]" result))))
 	  ((?c)			    ; %c - created_at (raw UTC string)
-	   (push (attr 'created-at) result))
+	   (list-push (attr 'created-at) result))
 	  ((?C)	; %C{time-format-str} - created_at (formatted with time-format-str)
-	   (push (twittering-local-strftime
+	   (list-push (twittering-local-strftime
 		  (or (match-string-no-properties 2 format-str) "%H:%M:%S")
 		  (attr 'created-at))
@@ -474,5 +476,5 @@
 	     (let ((secs (+ (* (- (car now) (car created-at)) 65536)
 			    (- (cadr now) (cadr created-at)))))
-	       (push (cond ((< secs 5) "less than 5 seconds ago")
+	       (list-push (cond ((< secs 5) "less than 5 seconds ago")
 			   ((< secs 10) "less than 10 seconds ago")
 			   ((< secs 20) "less than 20 seconds ago")
@@ -488,5 +490,5 @@
 		     result))))
 	  ((?t)				; %t - text
-	   (push			;(clickable-text)
+	   (list-push			;(clickable-text)
 	    (attr 'text)
 	    result))
@@ -494,13 +496,13 @@
 	   (let ((truncated (attr 'truncated)))
 	     (when (string= "true" truncated)
-	       (push "..." result))))
+	       (list-push "..." result))))
 	  ((?f)				; %f - source
-	   (push (attr 'source) result))
+	   (list-push (attr 'source) result))
 	  ((?#)				; %# - id
-	   (push (attr 'id) result))
+	   (list-push (attr 'id) result))
 	  (t
-	   (push (char-to-string c) result)))
+	   (list-push (char-to-string c) result)))
 	)
-      (push (substring format-str cursor) result)
+      (list-push (substring format-str cursor) result)
       (apply 'concat (nreverse result))
       )))
@@ -779,19 +781,19 @@
 				   encoded-str cursor))
 	  (when (> found-at cursor)
-	    (push (substring encoded-str cursor found-at) result))
+	    (list-push (substring encoded-str cursor found-at) result))
 	  (let ((number-entity (match-string-no-properties 2 encoded-str))
 		(letter-entity (match-string-no-properties 3 encoded-str)))
 	    (cond (number-entity
-		   (push
+		   (list-push
 		    (char-to-string
 		     (twittering-ucs-to-char
 		      (string-to-number number-entity))) result))
 		  (letter-entity
-		   (cond ((string= "gt" letter-entity) (push ">" result))
-			 ((string= "lt" letter-entity) (push "<" result))
-			 (t push "?" result)))
-		  (t (push "?" result)))
+		   (cond ((string= "gt" letter-entity) (list-push ">" result))
+			 ((string= "lt" letter-entity) (list-push "<" result))
+			 (t (list-push "?" result))))
+		  (t (list-push "?" result)))
 	    (setq cursor (match-end 0))))
-	(push (substring encoded-str cursor) result)
+	(list-push (substring encoded-str cursor) result)
 	(apply 'concat (nreverse result)))
     ""))
Index: lang/elisp/twittering-mode/branches/RB-0.3/ChangeLog
===================================================================
--- lang/elisp/twittering-mode/branches/RB-0.3/ChangeLog (revision 11)
+++ lang/elisp/twittering-mode/branches/RB-0.3/ChangeLog (revision 25)
@@ -1,2 +1,7 @@
+2008-03-15  Y. Hayamizu  <haya@haya-laptop-ubuntu>
+
+	* twittering-mode.el : pushをfree variableと誤認識されるバグ(再現できていない)のため,clのpushをlist-pushで置きかえ.
+	(list-push): clのpushの代替として定義.
+
 2008-02-08  Tsuyoshi CHO  <Tsuyoshi.CHO+develop@Gmail.com>