# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 661906282 0
# Node ID 535ec1aa78efa2202d8c5359d990335fcc230ed6
# Parent  fa6580d92860a6dd471a4ce5d30aba1eedc9a585
*** empty log message ***

diff -r fa6580d92860 -r 535ec1aa78ef lisp/subr.el
--- a/lisp/subr.el	Thu Dec 20 20:38:22 1990 +0000
+++ b/lisp/subr.el	Sat Dec 22 22:51:22 1990 +0000
@@ -290,6 +290,17 @@
 This makes or adds to an entry on `after-load-alist'.
 FILE should be the name of a library, with no directory name."
   (eval-after-load file (read)))
+
+(defmacro defun-inline (name args &rest body)
+  "Create an \"inline defun\" (actually a macro).
+Use just like `defun'."
+  (nconc (list 'defmacro name '(&rest args))
+	 (if (stringp (car body))
+	     (prog1 (list (car body))
+	       (setq body (or (cdr body) body))))
+	 (list (list 'cons (list 'quote
+				 (cons 'lambda (cons args body)))
+		     'args))))
 
 (defun user-original-login-name ()
   "Return user's login name from original login.