mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Richard M. Stallman 1990-12-22 22:51:22 +00:00
parent 82ac4b7756
commit 408a4c8f5e
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/subr.el
View File

@ -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.