Minor advice.el fix

* lisp/emacs-lisp/advice.el (ad-preactivate-advice):
Avoid setting the function definition of nil.
This was happening during bootstrap of org-compat.el,
apparently due to eager macro expansion of code behind
a (featurep 'xemacs) test.
This commit is contained in:
Glenn Morris 2016-12-12 15:20:39 -05:00
parent 940df47741
commit 61f8c2386c

View file

@ -2830,7 +2830,7 @@ advised definition from scratch."
(ad-get-cache-id function))))
(ad-set-advice-info function old-advice-info)
(advice-remove function advicefunname)
(fset advicefunname old-advice)
(if advicefunname (fset advicefunname old-advice))
(if old-advice (advice-add function :around advicefunname)))))