[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/advice.el

[Eli Zaretskii]

Index: emacs/lisp/emacs-lisp/advice.el
diff -c emacs/lisp/emacs-lisp/advice.el:1.30 
emacs/lisp/emacs-lisp/advice.el:1.31
*** emacs/lisp/emacs-lisp/advice.el:1.30        Tue Nov 27 10:52:52 2001
--- emacs/lisp/emacs-lisp/advice.el     Tue Dec 11 01:07:07 2001
***************
*** 2698,2704 ****
        ;; Need to turn off auto-activation
        ;; because `byte-compile' uses `fset':
        (ad-with-auto-activation-disabled
!        (byte-compile function))))
  
  
  ;; @@ Constructing advised definitions:
--- 2698,2707 ----
        ;; Need to turn off auto-activation
        ;; because `byte-compile' uses `fset':
        (ad-with-auto-activation-disabled
!        (let ((symbol (make-symbol "advice-compilation")))
!        (fset symbol (symbol-function function))
!        (byte-compile symbol)
!        (fset function (symbol-function symbol))))))
  
  
  ;; @@ Constructing advised definitions: