From 90f16eaa76712321fa669e5ba1d08785ccba067e Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Wed, 25 Nov 2020 13:48:38 -0500 Subject: [PATCH] Fix #4317: wrong-type-arg: number-or-marker-p many Caused by a func-arity call on an advised function (returns the arity of the advice, rather than the advised function itself). --- core/core.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/core/core.el b/core/core.el index b3f3c5b00..e2ac4454f 100644 --- a/core/core.el +++ b/core/core.el @@ -288,13 +288,17 @@ config.el instead." (after! comp ;; Support the deprecated name for comp-deferred-compilation-deny-list ;; (changed in feature/native-comp@6104ab0f) + ;; DEPRECATED Remove months down the road. (unless (boundp 'comp-deferred-compilation-deny-list) (defvaralias 'comp-deferred-compilation-deny-list 'comp-deferred-compilation-black-list)) ;; Support native-compile-async lacking selector parameter ;; (added in feature/native-comp@7a8370ed) - (when (< (cdr (func-arity #'native-compile-async)) 4) + ;; DEPRECATED Remove months down the road. + (when (and (not (advice-member-p 'doom--native-compile-async-a + 'native-compile-async)) + (< (cdr (func-arity #'native-compile-async)) 4)) (defadvice! doom--native-compile-async-a (orig-fn paths &optional recursively load _selector) :around #'native-compile-async (if (fboundp 'native--compile-async)