- Timestamp:
- 05/12/08 12:35:40 (17 years ago)
- Files:
-
- 1 modified
Legend:
- Unmodified
- Added
- Removed
-
lang/elisp/twittering-mode/branches/tsuyoshi/twittering-mode.el
r49 r50 100 100 (twittering-get-or-generate-buffer twittering-buffer)) 101 101 102 (defvar twittering-http-buffer " *twittering-http-buffer*")102 (defvar twittering-http-buffer " *twittering-http-buffer*") 103 103 (defun twittering-http-buffer () 104 104 (twittering-get-or-generate-buffer twittering-http-buffer)) … … 156 156 ;;; to show image files 157 157 158 (defvar twittering-wget-buffer " *twittering-wget-buffer*")158 (defvar twittering-wget-buffer " *twittering-wget-buffer*") 159 159 (defun twittering-wget-buffer () 160 160 (twittering-get-or-generate-buffer twittering-wget-buffer)) … … 900 900 status 901 901 (("200 OK") 902 (let ((status-data (assq-get 'status body))) 902 (let ((status-data 903 ;;(assq-get 'status body) 904 (cddr (car body)) 905 )) 903 906 (message "status %s: favorited - %s" 904 907 (assq-get 'id status-data)