* mixi.el (with-mixi-retrieve): Put `edebug-form-spec'.

(with-mixi-decoded-time-value): Ditto.

diff --git a/ChangeLog b/ChangeLog
index c9481b5..8279a31 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2006-10-24  OHASHI Akira  <bg66@koka-in.org>
 
+       * mixi.el (with-mixi-retrieve): Put `edebug-form-spec'.
+       (with-mixi-decoded-time-value): Ditto.
+
+2006-10-24  OHASHI Akira  <bg66@koka-in.org>
+
        * mixi.el (mixi-get-matched-items): Fix when MAX-NUMBERS is nil.
 
 2006-10-24  OHASHI Akira  <bg66@koka-in.org>

diff --git a/mixi.el b/mixi.el
index 758b0e5..9f469a9 100644 (file)
--- a/mixi.el
+++ b/mixi.el
@@ -327,6 +327,7 @@ Increase this value when unexpected error frequently occurs."
         (setq buffer (funcall mixi-retrieve-function ,url))))
      ,@body))
 (put 'with-mixi-retrieve 'lisp-indent-function 'defun)
+(put 'with-mixi-retrieve 'edebug-form-spec '(form body))
 
 (defun mixi-get-matched-items (url max-numbers regexp)
   "Get matched items to REGEXP in URL."
@@ -417,6 +418,7 @@ LOW), and type 3 is the list (HIGH LOW MICRO)."
           (with-mixi-decoded-time-value ,varlist ,@body)))
     `(progn ,@body)))
 (put 'with-mixi-decoded-time-value 'lisp-indent-function 'defun)
+(put 'with-mixi-decoded-time-value 'edebug-form-spec '(form body))
 
 ;; stolen from time-date.el
 (defun mixi-encode-time-value (high low micro type)