(derived-mode-p): Moved here from derived.el.

1 files changed, 10 insertions, 0 deletions

diff --git a/lisp/subr.el b/lisp/subr.el
index 4232fd77e0..4029b7fa33 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1294,6 +1294,16 @@ Only affects hooks run in the current buffer."
      (let ((delay-mode-hooks t))
        ,@body)))
 
+;; PUBLIC: find if the current mode derives from another.
+
+(defun derived-mode-p (&rest modes)
+  "Non-nil if the current major mode is derived from one of MODES.
+Uses the `derived-mode-parent' property of the symbol to trace backwards."
+  (let ((parent major-mode))
+    (while (and (not (memq parent modes))
+		(setq parent (get parent 'derived-mode-parent))))
+    parent))
+
 (defmacro with-syntax-table (table &rest body)
   "Evaluate BODY with syntax table of current buffer set to a copy of TABLE.
 The syntax table of the current buffer is saved, BODY is evaluated, and the