diff options
| author | Andrea Corallo <akrl@sdf.org> | 2019-12-19 11:06:38 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-01-01 11:38:13 +0100 |
| commit | b3cbdfc86474932e4ef8d1237ed100a6f4f4c854 (patch) | |
| tree | 000694222e8dbb47e9385e47669269007df24836 /src/data.c | |
| parent | a647a97320e72db275a05961ae09e487ee3063e2 (diff) | |
add basic compilation unit into structure
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/data.c b/src/data.c index 67613881d67..0a13569bc6d 100644 --- a/src/data.c +++ b/src/data.c @@ -870,7 +870,7 @@ DEFUN ("subr-native-elisp-p", Fsubr_native_elisp_p, Ssubr_native_elisp_p, 1, 1, nil otherwise. */) (Lisp_Object object) { - return (SUBRP (object) && XSUBR (object)->native_elisp) ? Qt : Qnil; + return (SUBRP (object) && XSUBR (object)->native_comp_u) ? Qt : Qnil; } #endif @@ -900,7 +900,7 @@ Value, if non-nil, is a list (interactive SPEC). */) if (SUBRP (fun)) { #ifdef HAVE_NATIVE_COMP - if (XSUBR (fun)->native_elisp && XSUBR (fun)->native_intspec) + if (XSUBR (fun)->native_comp_u && XSUBR (fun)->native_intspec) return XSUBR (fun)->native_intspec; #endif const char *spec = XSUBR (fun)->intspec; |