Changeset 50 for lang/elisp

Show
Ignore:
Timestamp:
05/12/08 12:35:40 (16 years ago)
Author:
tsuyoshi
Message:

fix param

Files:
1 modified

Legend:

Unmodified
Added
Removed

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

    r49 r50  
    100100  (twittering-get-or-generate-buffer twittering-buffer)) 
    101101 
    102 (defvar twittering-http-buffer "*twittering-http-buffer*") 
     102(defvar twittering-http-buffer " *twittering-http-buffer*") 
    103103(defun twittering-http-buffer () 
    104104  (twittering-get-or-generate-buffer twittering-http-buffer)) 
    … …  
    156156;;; to show image files 
    157157 
    158 (defvar twittering-wget-buffer "*twittering-wget-buffer*") 
     158(defvar twittering-wget-buffer " *twittering-wget-buffer*") 
    159159(defun twittering-wget-buffer () 
    160160  (twittering-get-or-generate-buffer twittering-wget-buffer)) 
    … …  
    900900             status 
    901901             (("200 OK") 
    902               (let ((status-data (assq-get 'status body))) 
     902              (let ((status-data 
     903                     ;;(assq-get 'status body) 
     904                     (cddr (car body)) 
     905                     )) 
    903906                (message "status %s: favorited - %s" 
    904907                         (assq-get 'id status-data)