mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-08 20:58:58 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Glenn Morris 2007-10-28 23:52:21 +00:00
parent 7187be8be7
commit e92d2ff731
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/emacs-lisp/advice.el
View File

@ -2675,12 +2675,9 @@ For that it has to be fbound with a non-autoload definition."
(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)))
(byte-compile-warnings byte-compile-warnings))
(if (featurep 'cl)
(setq byte-compile-warnings
(remq 'cl-functions byte-compile-warnings)))
(byte-compile-disable-warning 'cl-functions))
(fset symbol (symbol-function function))
(byte-compile symbol)
(fset function (symbol-function symbol))))))