*** empty log message ***

diff --git a/lisp/subr.el b/lisp/subr.el
index 512867ee3c0ca2281ac0d9a69ce5a704a535d55d..ffb4cb58184d35387c29cf594513a3cfc7a14863 100644 (file)
--- 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))))
 \f
 (defun user-original-login-name ()
   "Return user's login name from original login.