Changeset 25 for lang/elisp

Timestamp:

03/15/08 10:35:08 (17 years ago)

Author:

hayamizu

Message:

replaced

Location:

lang/elisp/twittering-mode/branches/RB-0.3

Files:

• ChangeLog (modified) (1 diff)
• twittering-mode.el (modified) (9 diffs)

lang/elisp/twittering-mode/branches/RB-0.3/ChangeLog

@@ +1 @@
+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>
 

lang/elisp/twittering-mode/branches/RB-0.3/twittering-mode.el

@@ -7 +7 @@
 ;;         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 +50 @@
 (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 +107 @@
 (defun assocref (item alist)
   (cdr (assoc item alist)))
+(defmacro list-push (value listvar)
+  `(setq ,listvar (cons ,value ,listvar)))
 
 ;;; Proxy
@@ -432 +434 @@
         (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 +440 @@
         (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 +476 @@
              (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 +490 @@
                      result))))
           ((?t)                         ; %t - text
-           (push                        ;(clickable-text)
+           (list-push                   ;(clickable-text)
             (attr 'text)
             result))
@@ -494 +496 @@
            (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 +781 @@
                                    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)))
     ""))