* riece-server.el (riece-with-server-buffer): Store 'edebug-form-spec

property.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1536fd3..2c3ec83 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-12-04  OHASHI Akira  <bg66@koka-in.org>
+
+       * riece-server.el (riece-with-server-buffer): Store 'edebug-form-spec
+       property.
+
 2003-12-03  OHASHI Akira  <bg66@koka-in.org>
 
        * riece-log.el (riece-log-requires): New function.

diff --git a/lisp/riece-server.el b/lisp/riece-server.el
index 4164488..c3ab69e 100644 (file)
--- a/lisp/riece-server.el
+++ b/lisp/riece-server.el
@@ -103,6 +103,7 @@ the `riece-server-keyword-map' variable."
        (error "Server closed"))))
 
 (put 'riece-with-server-buffer 'lisp-indent-function 1)
+(put 'riece-with-server-buffer 'edebug-form-spec '(form body))
 
 (defun riece-process-send-string (process string)
   (with-current-buffer (process-buffer process)