From ad84d4930bd5d8cc0146ee40f724800dbda54343 Mon Sep 17 00:00:00 2001 From: akr Date: Fri, 9 Apr 1999 17:42:47 +0000 Subject: [PATCH] * static.el: Add doc-strings. --- ChangeLog | 4 ++++ broken.el | 1 - static.el | 4 ++++ 3 files changed, 8 insertions(+), 1 deletion(-) 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 -- 1.7.10.4