Mercurial > emacs
diff lisp/subr.el @ 861:345296f94a1e
*** empty log message ***
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 24 Jul 1992 05:00:23 +0000 |
parents | 113281b361ec |
children | 1dba066c1e0a |
line wrap: on
line diff
--- a/lisp/subr.el Fri Jul 24 04:34:12 1992 +0000 +++ b/lisp/subr.el Fri Jul 24 05:00:23 1992 +0000 @@ -312,16 +312,16 @@ 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)))) +;;(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.