From: hayashi <hayashi>
Date: Sun, 12 Sep 1999 07:38:19 +0000 (+0000)
Subject: Add edebug spec for defun-maybe-cond, defmacro-maybe-cond
X-Git-Tag: apel-9_22~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=45b0814d3059ee106897c10cdc5af178d049fc87;p=elisp%2Fapel.git

Add edebug spec for defun-maybe-cond, defmacro-maybe-cond
---

diff --git a/ChangeLog b/ChangeLog
index eeaa13e..ec26d0b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+1999-09-12  Mikio Nakajima  <minakaji@osaka.email.ne.jp>
+
+	* poe.el (defmacro-maybe-cond): Add edebug spec.
+
+1999-09-12  Yoshiki Hayashi  <t90553@mail.ecc.u-tokyo.ac.jp>
+
+	* poe.el (defun-maybe-cond): Add edebug spec.
+
 1999-09-09  MORIOKA Tomohiko  <tomo@m17n.org>
 
 	* mcs-xm.el (mime-charset-decoder-alist): Don't use
@@ -2055,7 +2063,7 @@
 
 	* APEL: Version 8.4 was released.
 
-	* EMU-ELS: Don't use HIRAGANA LETTER A ($(B$"(B) to detect character
+	* EMU-ELS: Don't use HIRAGANA LETTER A ($B$"(B) to detect character
  	indexing (Emacs 20.3 or later).
 
 1998-04-20  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
diff --git a/poe.el b/poe.el
index a8f247c..1e585ff 100644
--- a/poe.el
+++ b/poe.el
@@ -215,6 +215,17 @@ Both SYMBOL and SPEC are unevaluated. The SPEC can be 0, t, a symbol
 (def-edebug-spec defun-maybe defun)
 (def-edebug-spec defmacro-maybe defmacro)
 (def-edebug-spec defsubst-maybe defun)
+(def-edebug-spec defun-maybe-cond
+  (&define name lambda-list
+	   [&optional stringp]
+	   [&rest ([&not eval] [&rest sexp])]
+	   [&optional (eval [&optional ("interactive" interactive)] def-body)]
+	   &rest (&rest sexp)))
+(def-edebug-spec defmacro-maybe-cond
+  (&define name lambda-list
+	   [&rest ([&not eval] [&rest sexp])]
+	   [&optional (eval def-body)]
+	   &rest (&rest sexp)))
 
 ;;; Emacs 20.1 emulation