[elpa] externals/compat 2dae9e67ac 1/3: Avoid testing 'subr-primitive-p' in some cases

[ELPA Syncer]

branch: externals/compat
commit 2dae9e67ac79f59a39621ac24b26b2d2212179b2
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Avoid testing 'subr-primitive-p' in some cases
    
    The compatibility function assumes that we are using a version of
    Emacs that does not support native compilation (hence the
    implementation of 'subr-primitive-p' is just 'subrp').
---
 compat-tests.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compat-tests.el b/compat-tests.el
index 0794b76972..a2c964b5da 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1819,7 +1819,8 @@ being compared against."
 
 (compat-deftests subr-primitive-p
   (ought t (symbol-function 'identity))       ;function from fns.c
-  (ought nil (symbol-function 'match-string)) ;function from subr.el
+  (unless (fboundp 'subr-native-elisp-p)
+    (ought nil (symbol-function 'match-string))) ;function from subr.el
   (ought nil (symbol-function 'defun))        ;macro from subr.el
   (ought nil nil))