[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/data.c
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/src/data.c |
Date: |
Tue, 09 Jul 2002 19:12:30 -0400 |
Index: emacs/src/data.c
diff -c emacs/src/data.c:1.210 emacs/src/data.c:1.211
*** emacs/src/data.c:1.210 Mon May 20 04:05:21 2002
--- emacs/src/data.c Tue Jul 9 19:12:30 2002
***************
*** 704,717 ****
return definition;
}
! DEFUN ("defalias", Fdefalias, Sdefalias, 2, 2, 0,
doc: /* Set SYMBOL's function definition to DEFINITION, and return
DEFINITION.
Associates the function with the current load file, if any. */)
! (symbol, definition)
! register Lisp_Object symbol, definition;
{
definition = Ffset (symbol, definition);
LOADHIST_ATTACH (symbol);
return definition;
}
--- 704,721 ----
return definition;
}
! extern Lisp_Object Qfunction_documentation;
!
! DEFUN ("defalias", Fdefalias, Sdefalias, 2, 3, 0,
doc: /* Set SYMBOL's function definition to DEFINITION, and return
DEFINITION.
Associates the function with the current load file, if any. */)
! (symbol, definition, docstring)
! register Lisp_Object symbol, definition, docstring;
{
definition = Ffset (symbol, definition);
LOADHIST_ATTACH (symbol);
+ if (!NILP (docstring))
+ Fput (symbol, Qfunction_documentation, docstring);
return definition;
}
***************
*** 1209,1215 ****
and load that binding. */
else
{
! tem1 = Fcons (symbol, Fcdr (current_alist_element));
buf->local_var_alist
= Fcons (tem1, buf->local_var_alist);
}
--- 1213,1219 ----
and load that binding. */
else
{
! tem1 = Fcons (symbol, XCDR (current_alist_element));
buf->local_var_alist
= Fcons (tem1, buf->local_var_alist);
}
***************
*** 1411,1419 ****
do
{
val = Feval (Fcar (Fcdr (args_left)));
! symbol = Fcar (args_left);
Fset_default (symbol, val);
! args_left = Fcdr (Fcdr (args_left));
}
while (!NILP (args_left));
--- 1415,1423 ----
do
{
val = Feval (Fcar (Fcdr (args_left)));
! symbol = XCAR (args_left);
Fset_default (symbol, val);
! args_left = Fcdr (XCDR (args_left));
}
while (!NILP (args_left));