From 4d466853a3115f3a6606192c5077c94f7a5d5289 Mon Sep 17 00:00:00 2001 From: bg66 Date: Tue, 24 Oct 2006 02:40:21 +0000 Subject: [PATCH] * mixi.el (with-mixi-retrieve): Put `edebug-form-spec'. (with-mixi-decoded-time-value): Ditto. --- ChangeLog | 5 +++++ mixi.el | 2 ++ 2 files changed, 7 insertions(+) diff --git a/ChangeLog b/ChangeLog index c9481b5..8279a31 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,10 @@ 2006-10-24 OHASHI Akira + * mixi.el (with-mixi-retrieve): Put `edebug-form-spec'. + (with-mixi-decoded-time-value): Ditto. + +2006-10-24 OHASHI Akira + * mixi.el (mixi-get-matched-items): Fix when MAX-NUMBERS is nil. 2006-10-24 OHASHI Akira diff --git a/mixi.el b/mixi.el index 758b0e5..9f469a9 100644 --- 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) -- 1.7.10.4