Changeset 134 for lang/elisp/twittering-mode

Timestamp:

06/13/09 19:10:37 (15 years ago)

Author:

hayamizu

Message:

Patch from Alberto Garcia for 'Twitter apocalypse'

http://www.techcrunch.com/2009/06/12/all-hell-may-break-loose-on-twitter-in-2-hours/
http://www.twitpocalypse.com/

Files:

• lang/elisp/twittering-mode/trunk/twittering-mode.el (modified) (6 diffs)

lang/elisp/twittering-mode/trunk/twittering-mode.el

@@ -519 +519 @@
            (list-push (attr 'user-url) result))
           ((?j)                         ; %j - user.id
-           (list-push (format "%d" (attr 'user-id)) result))
+           (list-push (attr 'user-id) result))
           ((?p)                         ; %p - protected?
            (let ((protected (attr 'user-protected)))
@@ -576 +576 @@
            (list-push (attr 'source) result))
           ((?#)                         ; %# - id
-           (list-push (format "%d" (attr 'id)) result))
+           (list-push (attr 'id) result))
           (t
            (list-push (char-to-string c) result)))
@@ -708 +708 @@
             (not (find-if
                   (lambda (item)
-                    (eql id (cdr (assq 'id item))))
+                    (string= id (cdr (assq 'id item))))
                   (symbol-value data-var))))
         (progn
@@ -734 +734 @@
            regex-index)
 
-      (setq id (string-to-number (assq-get 'id status-data)))
+      (setq id (assq-get 'id status-data))
       (setq text (twittering-decode-html-entities
                   (assq-get 'text status-data)))
@@ -741 +741 @@
       (setq created-at (assq-get 'created_at status-data))
       (setq truncated (assq-get 'truncated status-data))
-      (setq user-id (string-to-number (assq-get 'id user-data)))
+      (setq user-id (assq-get 'id user-data))
       (setq user-name (twittering-decode-html-entities
                        (assq-get 'name user-data)))
@@ -1136 +1136 @@
 (defun twittering-get-status-url (username id)
   "Generate status URL."
-  (format "http://twitter.com/%s/statuses/%d" username id))
+  (format "http://twitter.com/%s/statuses/%s" username id))
 
 ;;;###autoload