comparison lisp/emacs-lisp/advice.el @ 85729:bd2837f89a3b

(ad-compile-function): Use byte-compile-disable-warning.

85728:2797206f47b8

      ;; Need to turn off auto-activation
      ;; because `byte-compile' uses `fset':
      (ad-with-auto-activation-disabled
       (require 'bytecomp)
       (let ((symbol (make-symbol "advice-compilation"))
	     (byte-compile-warnings
	      (if (listp byte-compile-warnings) byte-compile-warnings
		byte-compile-warning-types)))
	 (if (featurep 'cl)
	     (setq byte-compile-warnings
		   (remq 'cl-functions byte-compile-warnings)))
	 (fset symbol (symbol-function function))
	 (byte-compile symbol)
	 (fset function (symbol-function symbol))))))

85729:bd2837f89a3b

      ;; Need to turn off auto-activation
      ;; because `byte-compile' uses `fset':
      (ad-with-auto-activation-disabled
       (require 'bytecomp)
       (let ((symbol (make-symbol "advice-compilation"))
	     (byte-compile-warnings byte-compile-warnings))
	 (if (featurep 'cl)
	     (byte-compile-disable-warning 'cl-functions))
	 (fset symbol (symbol-function function))
	 (byte-compile symbol)
	 (fset function (symbol-function symbol))))))