From: Roland McGrath <roland@gnu.org>
Date: Mon, 1 Aug 1994 22:28:26 +0000 (+0000)
Subject: (Ffset): Don't call Fget unless SYM's plist is consp.
X-Git-Tag: emacs-19.34~7438
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5e84269afee2965327bdc910ac225cbcc5005f2b;p=emacs.git

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

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,
 			     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;