Changeset 134 for lang/elisp

Show
Ignore:
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:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/elisp/twittering-mode/trunk/twittering-mode.el

    r81 r134  
    519519           (list-push (attr 'user-url) result)) 
    520520          ((?j)                         ; %j - user.id 
    521            (list-push (format "%d" (attr 'user-id)) result)) 
     521           (list-push (attr 'user-id) result)) 
    522522          ((?p)                         ; %p - protected? 
    523523           (let ((protected (attr 'user-protected))) 
     
    576576           (list-push (attr 'source) result)) 
    577577          ((?#)                         ; %# - id 
    578            (list-push (format "%d" (attr 'id)) result)) 
     578           (list-push (attr 'id) result)) 
    579579          (t 
    580580           (list-push (char-to-string c) result))) 
     
    708708            (not (find-if 
    709709                  (lambda (item) 
    710                     (eql id (cdr (assq 'id item)))) 
     710                    (string= id (cdr (assq 'id item)))) 
    711711                  (symbol-value data-var)))) 
    712712        (progn 
     
    734734           regex-index) 
    735735 
    736       (setq id (string-to-number (assq-get 'id status-data))) 
     736      (setq id (assq-get 'id status-data)) 
    737737      (setq text (twittering-decode-html-entities 
    738738                  (assq-get 'text status-data))) 
     
    741741      (setq created-at (assq-get 'created_at status-data)) 
    742742      (setq truncated (assq-get 'truncated status-data)) 
    743       (setq user-id (string-to-number (assq-get 'id user-data))) 
     743      (setq user-id (assq-get 'id user-data)) 
    744744      (setq user-name (twittering-decode-html-entities 
    745745                       (assq-get 'name user-data))) 
     
    11361136(defun twittering-get-status-url (username id) 
    11371137  "Generate status URL." 
    1138   (format "http://twitter.com/%s/statuses/%d" username id)) 
     1138  (format "http://twitter.com/%s/statuses/%s" username id)) 
    11391139 
    11401140;;;###autoload