/[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.29 by gerd, Mon Jul 9 13:06:11 2001 UTC revision 1.29.4.1 by eliz, Thu Dec 13 07:33:56 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.29  
changed lines
  Added in v.1.29.4.1

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