diff options
| author | John Paul Wallington | 2005-09-18 16:23:12 +0000 |
|---|---|---|
| committer | John Paul Wallington | 2005-09-18 16:23:12 +0000 |
| commit | 8a658a52b8da177a66f59ac638240cdcacebb21d (patch) | |
| tree | 2ed291799c4262e088e9cae55353aa98d50ddc8c /src/data.c | |
| parent | 93a75651ff56f5064762ca5565f5baef9a8f6a7b (diff) | |
| download | emacs-8a658a52b8da177a66f59ac638240cdcacebb21d.tar.gz emacs-8a658a52b8da177a66f59ac638240cdcacebb21d.zip | |
(Fdefalias): Signal an error if SYMBOL is not a symbol.
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/data.c b/src/data.c index c0c797da266..02249a887fa 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -719,6 +719,7 @@ determined by DEFINITION. */) | |||
| 719 | (symbol, definition, docstring) | 719 | (symbol, definition, docstring) |
| 720 | register Lisp_Object symbol, definition, docstring; | 720 | register Lisp_Object symbol, definition, docstring; |
| 721 | { | 721 | { |
| 722 | CHECK_SYMBOL (symbol); | ||
| 722 | if (CONSP (XSYMBOL (symbol)->function) | 723 | if (CONSP (XSYMBOL (symbol)->function) |
| 723 | && EQ (XCAR (XSYMBOL (symbol)->function), Qautoload)) | 724 | && EQ (XCAR (XSYMBOL (symbol)->function), Qautoload)) |
| 724 | LOADHIST_ATTACH (Fcons (Qt, symbol)); | 725 | LOADHIST_ATTACH (Fcons (Qt, symbol)); |