From: bg66 Date: Thu, 18 Jan 2007 10:56:09 +0000 (+0000) Subject: * mixi.el (mixi-temp-buffer-name): Rename from `mixi-buffer-name'. X-Git-Tag: mixi-el-1_0_0~92 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=daaeeb1ec08f8dd356ece4d0cfbec75096fafc20;p=elisp%2Fmixi.git * mixi.el (mixi-temp-buffer-name): Rename from `mixi-buffer-name'. (with-mixi-retrieve): Follow the change above. (with-mixi-post-form): Ditto. --- diff --git a/ChangeLog b/ChangeLog index 50d25a7..27a767e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,11 @@ 2007-01-18 OHASHI Akira + * mixi.el (mixi-temp-buffer-name): Rename from `mixi-buffer-name'. + (with-mixi-retrieve): Follow the change above. + (with-mixi-post-form): Ditto. + +2007-01-18 OHASHI Akira + * mixi.el (mixi-buffer-name): New variable. (with-mixi-retrieve): Use it. (with-mixi-post-form): Ditto. diff --git a/mixi.el b/mixi.el index 4659e1d..de92026 100644 --- a/mixi.el +++ b/mixi.el @@ -224,7 +224,7 @@ Increase this value when unexpected error frequently occurs." :type 'boolean :group 'mixi) -(defvar mixi-buffer-name " *mixi temp*") +(defvar mixi-temp-buffer-name " *mixi temp*") (defvar mixi-me nil) ;; Utilities. @@ -416,7 +416,7 @@ Increase this value when unexpected error frequently occurs." (mixi-retrieve "/logout.pl")) (defmacro with-mixi-retrieve (url &rest body) - `(with-current-buffer (get-buffer-create mixi-buffer-name) + `(with-current-buffer (get-buffer-create mixi-temp-buffer-name) (when ,url (erase-buffer) (insert (mixi-retrieve ,url)) @@ -432,7 +432,7 @@ Increase this value when unexpected error frequently occurs." (put 'with-mixi-retrieve 'edebug-form-spec '(body)) (defmacro with-mixi-post-form (url fields &rest body) - `(with-current-buffer (get-buffer-create mixi-buffer-name) + `(with-current-buffer (get-buffer-create mixi-temp-buffer-name) (when ,url (erase-buffer) (insert (mixi-post-form ,url ,fields))