mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-08 04:30:45 -08:00
Code Issues Projects Releases Wiki Activity

(Ffset): Don't call Fget unless SYM's plist is consp.

Browse source
This commit is contained in:
Roland McGrath 1994-08-01 22:28:26 +00:00
parent 60f312e2fc
commit 5e84269afe
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/data.c
View file

@ -556,7 +556,7 @@ DEFUN ("fset", Ffset, Sfset, 2, 2, 0,
Vautoload_queue);
XSYMBOL (sym)->function = newdef;
/* Handle automatic advice activation */
if (!NILP (Fget (sym, Qadvice_info)))
if (CONSP (XSYMBOL (sym)->plist) && !NILP (Fget (sym, Qadvice_info)))
{
call2 (Qactivate_advice, sym, Fbyte_code_function_p (newdef));
newdef = XSYMBOL (sym)->function;