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

[Richard M. Stallman]

Index: emacs/lisp/emacs-lisp/advice.el
diff -c emacs/lisp/emacs-lisp/advice.el:1.32 
emacs/lisp/emacs-lisp/advice.el:1.33
*** emacs/lisp/emacs-lisp/advice.el:1.32        Tue Apr 30 00:20:16 2002
--- emacs/lisp/emacs-lisp/advice.el     Sun Jul  7 05:37:09 2002
***************
*** 2698,2704 ****
        ;; 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))))))
--- 2698,2711 ----
        ;; Need to turn off auto-activation
        ;; because `byte-compile' uses `fset':
        (ad-with-auto-activation-disabled
!        (require 'bytecomp)
!        (let ((symbol (make-symbol "advice-compilation"))
!            (byte-compile-warnings
!             (if (listp byte-compile-warnings) byte-compile-warnings
!               byte-compile-warning-types)))
!        (if (featurep 'cl)
!            (setq byte-compile-warnings
!                  (remq 'cl-functions byte-compile-warnings)))
         (fset symbol (symbol-function function))
         (byte-compile symbol)
         (fset function (symbol-function symbol))))))