*** empty log message ***

[bpt/emacs.git] / lisp / subr.el

diff --git a/lisp/subr.el b/lisp/subr.el
index aee62d1..c485e98 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -312,16 +312,16 @@ 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))))
+;;(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.