# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1264287916 18000
# Node ID 9e04f0532ba4d53ffa53212e492b561f57614a3c
# Parent  2eca6c2d9334f5fc7deb0429dc4f09175853a423
* emacs-lisp/advice.el (ad-set-orig-definition): Fix typo (Bug#3541).

diff -r 2eca6c2d9334 -r 9e04f0532ba4 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Jan 23 17:50:13 2010 -0500
+++ b/lisp/ChangeLog	Sat Jan 23 18:05:16 2010 -0500
@@ -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 -r 2eca6c2d9334 -r 9e04f0532ba4 lisp/emacs-lisp/advice.el
--- a/lisp/emacs-lisp/advice.el	Sat Jan 23 17:50:13 2010 -0500
+++ b/lisp/emacs-lisp/advice.el	Sat Jan 23 18:05:16 2010 -0500
@@ -2191,7 +2191,7 @@
 
 (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)))