comparison lisp/emacs-lisp/advice.el @ 41936:2fba35852455

(ad-compile-function): Byte compile the function under another (uninterned) name.

41935:a9d361663625

  (interactive "aByte-compile function: ")
  (if (ad-is-compilable function)
      ;; Need to turn off auto-activation
      ;; because `byte-compile' uses `fset':
      (ad-with-auto-activation-disabled
       (byte-compile function))))


;; @@ Constructing advised definitions:
;; ====================================
;;

41936:2fba35852455

  (interactive "aByte-compile function: ")
  (if (ad-is-compilable function)
      ;; 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:
;; ====================================
;;