Mercurial > emacs
changeset 144:535ec1aa78ef
*** empty log message ***
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 22 Dec 1990 22:51:22 +0000 |
| parents | fa6580d92860 |
| children | 1a0f15a66c06 |
| files | lisp/subr.el |
| diffstat | 1 files changed, 11 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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.