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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c87a0495b9148a175a4ace317a5303d32ff4cc8d..cee154248140c55c10eb3b64f39ed5716b6f45ef 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,12 @@
+2010-01-23  Dmitri Paduchikh  <dpaduch@k66.ru>  (tiny change)
+
+       * emacs-lisp/advice.el (ad-set-orig-definition): Fix typo
+       (Bug#3541).
+
 2010-01-23  Chong Yidong  <cyd@stupidchicken.com>
 
-       * emacs-lisp/assoc.el (aput, adelete, amake): Use lexical-let (Bug#5450).
-       (aelement): Doc fix.
+       * emacs-lisp/assoc.el (aelement): Doc fix.
+       (aput, adelete, amake): Use lexical-let (Bug#5450).
 
 2010-01-23  Stephen Leake  <stephen_leake@member.fsf.org>
 

diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index bac24b6302173b931065cb7e19cc3d2cd40663d6..003f70ea4a5905fba278a5dc910394ca4c548f4e 100644 (file)
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -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)))