From 02c6d0d0f29e6628d62910463e5800325f21aebf Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 23 Jan 2010 18:05:16 -0500 Subject: [PATCH] * emacs-lisp/advice.el (ad-set-orig-definition): Fix typo (Bug#3541). --- lisp/ChangeLog | 9 +++++++-- lisp/emacs-lisp/advice.el | 2 +- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c87a0495b91..cee15424814 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,7 +1,12 @@ +2010-01-23 Dmitri Paduchikh (tiny change) + + * emacs-lisp/advice.el (ad-set-orig-definition): Fix typo + (Bug#3541). + 2010-01-23 Chong Yidong - * 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 diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el index bac24b63021..003f70ea4a5 100644 --- 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))) -- 2.39.5