X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=pym.el;h=c895ef24e9947f22fbd897c76c26fb05383fc065;hb=b465e968b9c0dcb7a2e6a48c70d45bf74442dfd6;hp=ca6676dc426ec6b840a9c4bb9ee22d6bdf2fb8f1;hpb=ad3ba73586a7e06f1311726585c1e2c86995bda2;p=elisp%2Fapel.git

diff --git a/pym.el b/pym.el
index ca6676d..c895ef2 100644
--- a/pym.el
+++ b/pym.el
@@ -27,12 +27,15 @@
 
 ;; This module provides `def*-maybe' macros for conditional definition.
 ;;
-;; Many APEL modules use these macros to provide emulation version of
-;; Emacs builtins (both C primitives and lisp subroutines) for backward
-;; compatibility.  While compilation time, if `def*-maybe' find that
-;; functions/variables being defined is already provided by Emacs used
-;; for compilation, it does not leave the definitions in compiled code
-;; and resulting .elc will be highly specialized for your environment.
+;; Many APEL modules use these macros to provide the emulating version
+;; of the Emacs builtins (both C primitives and lisp subroutines) for
+;; backward compatibility.  While compilation time, if `def*-maybe'
+;; find that functions/variables being defined is already provided by
+;; Emacs used for compilation, it does not leave the definitions in
+;; compiled code and resulting .elc files will be highly specialized
+;; for your environment.  Lisp programmers should be aware that these
+;; macros will never provide functions or variables at run-time if they
+;; are defined for some reason (or by accident) at compilation time.
 
 ;; For `find-function' lovers, the following definitions may work with
 ;; `def*-maybe'.
@@ -268,13 +271,12 @@ Both SYMBOL and SPEC are unevaluated. The SPEC can be 0, t, a symbol
 	   &rest (&rest sexp)))
 
 ;; edebug-spec for `static-*' macros are also defined here.
-;; XXX: not defined yet.  FIXME!
-;; (def-edebug-spec static-if ...)
-;; (def-edebug-spec static-when ...)
-;; (def-edebug-spec static-unless ...)
-;; (def-edebug-spec static-condition-case ...)
-;; (def-edebug-spec static-defconst ...)
-;; (def-edebug-spec static-cond ...)
+(def-edebug-spec static-if t) 
+(def-edebug-spec static-when when)
+(def-edebug-spec static-unless unless)
+(def-edebug-spec static-condition-case condition-case)
+(def-edebug-spec static-defconst defconst)
+(def-edebug-spec static-cond cond)
 
 
 ;;; for backward compatibility.
@@ -288,6 +290,7 @@ Both SYMBOL and SPEC are unevaluated. The SPEC can be 0, t, a symbol
 
 ;;; End.
 
-(provide 'pym)
+(require 'product)
+(product-provide (provide 'pym) (require 'apel-ver))
 
 ;;; pym.el ends here