comparison src/data.c @ 46279:5f4ed17e4396

(Fdefalias): Add an optional `docstring' argument. (set_internal, Fsetq_default): Use XCAR/XCDR.

46278:ae7e64529fa0

      definition = XSYMBOL (symbol)->function;
    }
  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;
}

DEFUN ("setplist", Fsetplist, Ssetplist, 2, 2, 0,
       doc: /* Set SYMBOL's property list to NEWVAL, and return NEWVAL.  */)

		 create a new buffer-local binding for the variable.
		 That means, give this buffer a new assoc for a local value
		 and load that binding.  */
	      else
		{
		  tem1 = Fcons (symbol, Fcdr (current_alist_element));
		  buf->local_var_alist
		    = Fcons (tem1, buf->local_var_alist);
		}
	    }

  GCPRO1 (args);

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

  UNGCPRO;
  return val;

46279:5f4ed17e4396

      definition = XSYMBOL (symbol)->function;
    }
  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;
}

DEFUN ("setplist", Fsetplist, Ssetplist, 2, 2, 0,
       doc: /* Set SYMBOL's property list to NEWVAL, and return NEWVAL.  */)

		 create a new buffer-local binding for the variable.
		 That means, give this buffer a new assoc for a local value
		 and load that binding.  */
	      else
		{
		  tem1 = Fcons (symbol, XCDR (current_alist_element));
		  buf->local_var_alist
		    = Fcons (tem1, buf->local_var_alist);
		}
	    }

  GCPRO1 (args);

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

  UNGCPRO;
  return val;