From 1053a8716ba9f1834eccff14ece377928a4bd244 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 18 Jun 2012 11:57:41 -0400 Subject: Fix return value of `defun' and un-define it. * src/data.c (Fdefalias): Return `symbol'. * doc/lispref/functions.texi (Defining Functions): * doc/lispref/macros.texi (Defining Macros): Un-define the return value of `defun', `defmacro' and `defalias'. Fixes: debbugs:11686 --- lisp/emacs-lisp/byte-run.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index 635eef93d96..925d275386f 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el @@ -123,7 +123,8 @@ the list ARGS... as it appears in the expression, and the result should be a form to be evaluated instead of the original. DECL is a declaration, optional, of the form (declare DECLS...) where DECLS is a list of elements of the form (PROP . VALUES). These are -interpreted according to `macro-declarations-alist'." +interpreted according to `macro-declarations-alist'. +The return value is undefined." (if (stringp docstring) nil (if decl (setq body (cons decl body))) (setq decl docstring) @@ -158,6 +159,7 @@ See also the function `interactive'. DECL is a declaration, optional, of the form (declare DECLS...) where DECLS is a list of elements of the form (PROP . VALUES). These are interpreted according to `defun-declarations-alist'. +The return value is undefined. \(fn NAME ARGLIST &optional DOCSTRING DECL &rest BODY)" ;; We can't just have `decl' as an &optional argument, because we need -- cgit v1.2.3