[Emacs-diffs] /srv/bzr/emacs/trunk r99405: * emacs-lisp/advice.el (ad-set-orig-definition): Fix typo (Bug#3541).

[Chong Yidong]

------------------------------------------------------------
revno: 99405
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2010-01-23 18:05:16 -0500
message:
  * emacs-lisp/advice.el (ad-set-orig-definition): Fix typo (Bug#3541).
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/advice.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-01-23 22:46:32 +0000
+++ b/lisp/ChangeLog    2010-01-23 23:05:16 +0000
@@ -1,7 +1,12 @@
+2010-01-23  Dmitri Paduchikh  <address@hidden>  (tiny change)
+
+       * emacs-lisp/advice.el (ad-set-orig-definition): Fix typo
+       (Bug#3541).
+
 2010-01-23  Chong Yidong  <address@hidden>
 
-       * 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  <address@hidden>
 

=== modified file 'lisp/emacs-lisp/advice.el'
--- a/lisp/emacs-lisp/advice.el 2010-01-16 21:20:43 +0000
+++ b/lisp/emacs-lisp/advice.el 2010-01-23 23:05:16 +0000
@@ -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)))