From: akr Date: Fri, 9 Apr 1999 17:42:47 +0000 (+0000) Subject: * static.el: Add doc-strings. X-Git-Tag: apel-9_17~20 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ad84d4930bd5d8cc0146ee40f724800dbda54343;p=elisp%2Fapel.git * static.el: Add doc-strings. --- diff --git a/ChangeLog b/ChangeLog index 3a1daf9..2bbbc12 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 1999-04-09 Tanaka Akira + * static.el: Add doc-strings. + +1999-04-09 Tanaka Akira + * EMU-ELS (emu-modules): Add `static'. * static.el: New file. diff --git a/broken.el b/broken.el index cc35ff0..c5d5e40 100644 --- 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 --- 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