>From 16574a7f6f9e2797fe68e06508189daafbb8c005 Mon Sep 17 00:00:00 2001
From: Arthur Miller <arthur.miller@live.com>
Date: Mon, 4 Oct 2021 15:48:13 +0200
Subject: [PATCH 2/2] Debug Instrumented Predicate

* lisp/emacs-lisp/debug.el (debug-instrumented-p): New function.
---
 lisp/emacs-lisp/debug.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el
index 0592db85df..8d7e150362 100644
--- a/lisp/emacs-lisp/debug.el
+++ b/lisp/emacs-lisp/debug.el
@@ -683,6 +683,10 @@ debug-on-entry
               '((depth . -100)))
   function)
 
+(defun debug-instrumented-p (function)
+  "Whether FUNCTION has been instrumented for debug."
+  (advice-member-p #'debug--implement-debug-on-entry function))
+
 (defun debug--function-list ()
   "List of functions currently set for debug on entry."
   (let ((funs '()))
-- 
2.33.0