From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 22 Dec 1990 22:51:22 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: emacs-19.34~15680
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=408a4c8f5e5ed1a096dbc774c2318653ab555e6f;p=emacs.git

*** empty log message ***
---

diff --git a/lisp/subr.el b/lisp/subr.el
index 512867ee3c0..ffb4cb58184 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -290,6 +290,17 @@ FILE should be the name of a library, with no directory name."
 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.