diff options
| author | Roland McGrath | 1994-08-01 22:28:26 +0000 |
|---|---|---|
| committer | Roland McGrath | 1994-08-01 22:28:26 +0000 |
| commit | 5e84269afee2965327bdc910ac225cbcc5005f2b (patch) | |
| tree | 71a346094c546acd14c5218fa10109ec3f92dd06 /src/data.c | |
| parent | 60f312e2fcacc78ab283eae01b69be827e8a7dad (diff) | |
| download | emacs-5e84269afee2965327bdc910ac225cbcc5005f2b.tar.gz emacs-5e84269afee2965327bdc910ac225cbcc5005f2b.zip | |
(Ffset): Don't call Fget unless SYM's plist is consp.
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/data.c b/src/data.c index c87ec249d5b..e00ab4dc5f8 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -556,7 +556,7 @@ DEFUN ("fset", Ffset, Sfset, 2, 2, 0, | |||
| 556 | Vautoload_queue); | 556 | Vautoload_queue); |
| 557 | XSYMBOL (sym)->function = newdef; | 557 | XSYMBOL (sym)->function = newdef; |
| 558 | /* Handle automatic advice activation */ | 558 | /* Handle automatic advice activation */ |
| 559 | if (!NILP (Fget (sym, Qadvice_info))) | 559 | if (CONSP (XSYMBOL (sym)->plist) && !NILP (Fget (sym, Qadvice_info))) |
| 560 | { | 560 | { |
| 561 | call2 (Qactivate_advice, sym, Fbyte_code_function_p (newdef)); | 561 | call2 (Qactivate_advice, sym, Fbyte_code_function_p (newdef)); |
| 562 | newdef = XSYMBOL (sym)->function; | 562 | newdef = XSYMBOL (sym)->function; |