Commit 8a658a52 authored by John Paul Wallington's avatar John Paul Wallington
Browse files

(Fdefalias): Signal an error if SYMBOL is not a symbol.

parent 93a75651
2005-09-18 John Paul Wallington <jpw@pobox.com>
* data.c (Fdefalias): Signal an error if SYMBOL is not a symbol.
2005-09-18 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
 
* Makefile.in (SOME_MACHINE_OBJECTS): Undo previous change.
......
......@@ -719,6 +719,7 @@ determined by DEFINITION. */)
(symbol, definition, docstring)
register Lisp_Object symbol, definition, docstring;
{
CHECK_SYMBOL (symbol);
if (CONSP (XSYMBOL (symbol)->function)
&& EQ (XCAR (XSYMBOL (symbol)->function), Qautoload))
LOADHIST_ATTACH (Fcons (Qt, symbol));
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment