/[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.30 by sds, Tue Nov 27 15:52:52 2001 UTC revision 1.31 by rms, Tue Dec 11 06:07:07 2001 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         (byte-compile function))))         (let ((symbol (make-symbol "advice-compilation")))
2702             (fset symbol (symbol-function function))
2703             (byte-compile symbol)
2704             (fset function (symbol-function symbol))))))
2705    
2706    
2707  ;; @@ Constructing advised definitions:  ;; @@ Constructing advised definitions:

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

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