* static.el: Add doc-strings.

diff --git a/ChangeLog b/ChangeLog
index 3a1daf9..2bbbc12 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 1999-04-09  Tanaka Akira  <akr@jaist.ac.jp>
 
+       * static.el: Add doc-strings.
+
+1999-04-09  Tanaka Akira  <akr@jaist.ac.jp>
+
        * EMU-ELS (emu-modules): Add `static'.
 
        * static.el: New file.

diff --git a/broken.el b/broken.el
index cc35ff0..c5d5e40 100644 (file)
--- a/broken.el
+++ b/broken.el
@@ -50,7 +50,6 @@
   )
 
 (put 'broken-facility 'lisp-indent-function 1)
-
 (defmacro broken-facility (facility &optional docstring assertion no-notice)
   "Declare that FACILITY emulation is broken if ASSERTION is nil.
 ASSERTION is evaluated statically.

diff --git a/static.el b/static.el
index 8e97b71..6d8ae7d 100644 (file)
--- a/static.el
+++ b/static.el
@@ -26,23 +26,27 @@
 
 (put 'static-if 'lisp-indent-function 2)
 (defmacro static-if (cond then &rest else)
+  "`if' expression but COND is evaluated at compile-time."
   (if (eval cond)
       then
     (` (progn  (,@ else)))))
 
 (put 'static-when 'lisp-indent-function 1)
 (defmacro static-when (cond &rest body)
+  "`when' expression but COND is evaluated at compile-time."
   (if (eval cond)
       (` (progn (,@ body)))))
 
 (put 'static-unless 'lisp-indent-function 1)
 (defmacro static-unless (cond &rest body)
+  "`unless' expression but COND is evaluated at compile-time."
   (if (eval cond)
       nil
     (` (progn (,@ body)))))
 
 (put 'static-condition-case 'lisp-indent-function 2)
 (defmacro static-condition-case (var bodyform &rest handlers)
+  "`condition-case' expression but BODYFORM is evaluated at compile-time."
   (eval (` (condition-case (, var)
               (list (quote quote) (, bodyform))
             (,@ (mapcar