/[emacs]/emacs/lisp/emacs-lisp/advice.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/advice.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.32 by rms, Tue Apr 30 04:20:16 2002 UTC revision 1.32.2.1 by miles, Fri Apr 4 06:20:16 2003 UTC
# Line 2698  For that it has to be fbound with a non- Line 2698  For that it has to be fbound with a non-
2698        ;; Need to turn off auto-activation        ;; Need to turn off auto-activation
2699        ;; because `byte-compile' uses `fset':        ;; because `byte-compile' uses `fset':
2700        (ad-with-auto-activation-disabled        (ad-with-auto-activation-disabled
2701         (let ((symbol (make-symbol "advice-compilation")))         (require 'bytecomp)
2702           (let ((symbol (make-symbol "advice-compilation"))
2703                 (byte-compile-warnings
2704                  (if (listp byte-compile-warnings) byte-compile-warnings
2705                    byte-compile-warning-types)))
2706             (if (featurep 'cl)
2707                 (setq byte-compile-warnings
2708                       (remq 'cl-functions byte-compile-warnings)))
2709           (fset symbol (symbol-function function))           (fset symbol (symbol-function function))
2710           (byte-compile symbol)           (byte-compile symbol)
2711           (fset function (symbol-function symbol))))))           (fset function (symbol-function symbol))))))

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.32.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26