[Emacs-diffs] Changes to emacs/src/data.c

[Stefan Monnier]

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));