* emacs-lisp/advice.el (ad-set-orig-definition): Fix typo (Bug#3541).

This commit is contained in:
Chong Yidong 2010-01-23 18:05:16 -05:00
parent e17d428f7a
commit 02c6d0d0f2
2 changed files with 8 additions and 3 deletions

View file

@ -2191,7 +2191,7 @@ Redefining advices affect the construction of an advised definition."
(defmacro ad-set-orig-definition (function definition)
`(ad-safe-fset
(ad-get-advice-info-field function 'origname) ,definition))
(ad-get-advice-info-field ,function 'origname) ,definition))
(defmacro ad-clear-orig-definition (function)
`(fmakunbound (ad-get-advice-info-field ,function 'origname)))