diff options
| -rw-r--r-- | lisp/emacs-lisp/advice.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el index c8a7ca6a875..17f2ed53ba5 100644 --- a/lisp/emacs-lisp/advice.el +++ b/lisp/emacs-lisp/advice.el | |||
| @@ -2687,7 +2687,7 @@ For that it has to be fbound with a non-autoload definition." | |||
| 2687 | (let ((symbol (make-symbol "advice-compilation")) | 2687 | (let ((symbol (make-symbol "advice-compilation")) |
| 2688 | (byte-compile-warnings byte-compile-warnings) | 2688 | (byte-compile-warnings byte-compile-warnings) |
| 2689 | ;; Don't pop up windows showing byte-compiler warnings. | 2689 | ;; Don't pop up windows showing byte-compiler warnings. |
| 2690 | (warning-suppress-types '(bytecomp))) | 2690 | (warning-suppress-types '((bytecomp)))) |
| 2691 | (if (featurep 'cl) | 2691 | (if (featurep 'cl) |
| 2692 | (byte-compile-disable-warning 'cl-functions)) | 2692 | (byte-compile-disable-warning 'cl-functions)) |
| 2693 | (fset symbol (symbol-function function)) | 2693 | (fset symbol (symbol-function function)) |