From 408a4c8f5e5ed1a096dbc774c2318653ab555e6f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 22 Dec 1990 22:51:22 +0000 Subject: [PATCH] *** empty log message *** --- lisp/subr.el | 11 +++++++++++ 1 file changed, 11 insertions(+) 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. -- 2.39.2