scope.el: Handle derived-mode-p.

diff --git a/lisp/emacs-lisp/scope.el b/lisp/emacs-lisp/scope.el
index aada0b67bb00ffbfed35cfba22ac5d2b6c6cfc34..1b083f3c83525c45162c1948947ae24a664932a9 100644 (file)
--- 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)