compat-29: Add compiled-function-p

4 files changed, 23 insertions, 0 deletions

diff --git a/NEWS.org b/NEWS.org
index 055ff21..bc43a7d 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -8,6 +8,7 @@
 - compat-28: Add ~color-dark-p~.
 - compat-28: Add ~with-window-non-dedicated~.
 - compat-29: Add ~plist-get~ generalized variable.
+- compat-29: Add ~compiled-function-p~.
 
 * Release of "Compat" Version 29.1.2.0
 
diff --git a/compat-29.el b/compat-29.el
index 27edaaa..bae8f07 100644
--- a/compat-29.el
+++ b/compat-29.el
@@ -185,6 +185,12 @@ and return the value found in PLACE instead."
 
 (compat-defalias string-split split-string) ;; <compat-tests:string-split>
 
+(compat-defun compiled-function-p (object) ;; <compat-tests:compiled-function-p>
+  "Return non-nil if OBJECT is a function that has been compiled.
+Does not distinguish between functions implemented in machine code
+or byte-code."
+  (or (subrp object) (byte-code-function-p object)))
+
 (compat-defun function-alias-p (func &optional noerror) ;; <compat-tests:function-alias-p>
   "Return nil if FUNC is not a function alias.
 If FUNC is a function alias, return the function alias chain.
diff --git a/compat-tests.el b/compat-tests.el
index e315e2c..4f75887 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1157,6 +1157,11 @@
     (should-equal 'l (cddadr xxxx))
     (should-equal 'h (cdddar xxxx))))
 
+(ert-deftest compiled-function-p ()
+  (should-not (compiled-function-p '(lambda (x) x)))
+  (should (compiled-function-p (symbol-function 'assq)))
+  (should (compiled-function-p (symbol-function 'identity))))
+
 (ert-deftest subr-native-elisp-p ()
   (should-not (subr-native-elisp-p (symbol-function 'identity))))
 
diff --git a/compat.texi b/compat.texi
index 1280fe6..5471851 100644
--- a/compat.texi
+++ b/compat.texi
@@ -2121,6 +2121,17 @@ positive.
 @end defun
 
 @c copied from lispref/functions.texi
+@defun compiled-function-p object
+This function returns @code{t} if @var{object} is a function object
+that is not in the form of ELisp source code but something like
+machine code or byte code instead.  More specifically it returns
+@code{t} if the function is built-in (a.k.a.@: ``primitive'',
+@pxref{What Is a Function}), or byte-compiled (@pxref{Byte
+Compilation}), or natively-compiled (@pxref{Native Compilation}), or
+a function loaded from a dynamic module (@pxref{Dynamic Modules}).
+@end defun
+
+@c copied from lispref/functions.texi
 @defun function-alias-p object &optional noerror
 Checks whether @var{object} is a function alias.  If it is, it returns
 a list of symbols representing the function alias chain, else