Mercurial > emacs

diff lisp/emacs-lisp/advice.el @ 107027:a64b73ff7ed5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from mainline.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Sun, 24 Jan 2010 21:58:18 +0000
parents 9e04f0532ba4
children 34e2c3832e08
line wrap: on
line diff
--- a/lisp/emacs-lisp/advice.el	Thu Jan 21 22:03:46 2010 +0000
+++ b/lisp/emacs-lisp/advice.el	Sun Jan 24 21:58:18 2010 +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)))