mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-20 04:50:55 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
John Paul Wallington 2005-09-18 16:23:12 +00:00
parent 93a75651ff
commit 8a658a52b8
2 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/ChangeLog
View file

@ -1,3 +1,7 @@
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.

1
src/data.c
View file

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