Re: table.el

[Richard Stallman]

    Do M-x load-file ~/test.el and C-h f `newline' again.

    Now the help message says:

    newline is an interactive compiled Lisp function in `~/test.el'.

Does this patch fix it?

*** advice.el.~1.30.~   Tue Nov 27 15:08:11 2001
--- advice.el   Fri Dec  7 20:28:29 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: