From: morioka <morioka>
Date: Wed, 25 Aug 1999 06:49:36 +0000 (+0000)
Subject: (inline): New implementation using `defmacro'.
X-Git-Tag: of-tm-8_5~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=58a901f40042a0cbc16ab60ca107443092d15f28;p=elisp%2Fapel.git

(inline): New implementation using `defmacro'.
---

diff --git a/poe-18.el b/poe-18.el
index 4a91e94..73403d1 100644
--- a/poe-18.el
+++ b/poe-18.el
@@ -142,7 +142,13 @@ Associates the function with the current load file, if any."
 ;;;  macros; they are "nuked" by rms in FSF version.)
 
 (put 'inline 'lisp-indent-hook 0)
-(defalias 'inline 'progn)
+(defmacro inline (&rest body)
+  "Eval BODY forms sequentially and return value of last one.
+
+This emulating macro does not support function inlining because old \(v18\)
+compiler does not support inlining feature.
+\[poe-18.el; EMACS 19 emulating macro]"
+  (` (progn (,@ body))))
 
 (put 'defsubst 'lisp-indent-hook 'defun)
 (put 'defsubst 'edebug-form-spec 'defun)