(Download): Renamed from "Anonymous FTP"; modify for

[elisp/apel.git] / pym.el

diff --git a/pym.el b/pym.el
index ca6676d..46c85ef 100644 (file)
--- a/pym.el
+++ b/pym.el
@@ -20,19 +20,22 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; Commentary:
 
 ;; 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