Changeset 50 for lang/elisp/twittering-mode

Timestamp:

05/12/08 12:35:40 (16 years ago)

Author:

tsuyoshi

Message:

fix param

Files:

• lang/elisp/twittering-mode/branches/tsuyoshi/twittering-mode.el (modified) (3 diffs)

lang/elisp/twittering-mode/branches/tsuyoshi/twittering-mode.el

@@ -100 +100 @@
   (twittering-get-or-generate-buffer twittering-buffer))
 
-(defvar twittering-http-buffer "*twittering-http-buffer*")
+(defvar twittering-http-buffer " *twittering-http-buffer*")
 (defun twittering-http-buffer ()
   (twittering-get-or-generate-buffer twittering-http-buffer))
@@ -156 +156 @@
 ;;; to show image files
 
-(defvar twittering-wget-buffer "*twittering-wget-buffer*")
+(defvar twittering-wget-buffer " *twittering-wget-buffer*")
 (defun twittering-wget-buffer ()
   (twittering-get-or-generate-buffer twittering-wget-buffer))
@@ -900 +900 @@
              status
              (("200 OK")
-              (let ((status-data (assq-get 'status body)))
+              (let ((status-data
+                     ;;(assq-get 'status body)
+                     (cddr (car body))
+                     ))
                 (message "status %s: favorited - %s"
                          (assq-get 'id status-data)