From: Eshel Yaron <me@eshelyaron.com>
Date: Tue, 8 Apr 2025 19:58:26 +0000 (+0200)
Subject: scope.el: Handle derived-mode-p.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=323af6361bf65ea573f5b5f034aa163fc0fa84a9;p=emacs.git

scope.el: Handle derived-mode-p.
---

diff --git a/lisp/emacs-lisp/scope.el b/lisp/emacs-lisp/scope.el
index aada0b67bb0..1b083f3c835 100644
--- a/lisp/emacs-lisp/scope.el
+++ b/lisp/emacs-lisp/scope.el
@@ -1332,6 +1332,9 @@ a (possibly empty) list of safe macros.")
 
 (put 'eieio-oset-default 'scope-analyzer #'scope--analyze-eieio-oset)
 
+(scope-define-function-analyzer derived-mode-p (modes &rest _obsolete)
+  (when-let ((q (scope--unqoute modes))) (scope-report-s q 'major-mode)))
+
 (scope-define-macro-analyzer define-globalized-minor-mode (l global mode turn-on &rest body)
   (scope-report-s mode 'function)
   (scope-report-s turn-on 'function)