X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/b6b7eda9f05b8e1ccab20357a82a602536481221..3c53a3cf83c218772d9bcfde4cd60c1face33e93:/lisp/derived.el

diff --git a/lisp/derived.el b/lisp/derived.el
index 3e899c09fe..3586affe21 100644
--- a/lisp/derived.el
+++ b/lisp/derived.el
@@ -203,17 +203,6 @@ been generated automatically, with a reference to the keymap."
 					; Run the hooks, if any.
 	 (run-mode-hooks ',hook)))))
 
-;; PUBLIC: find if the current mode derives from another.
-
-;;;###autoload
-(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))
-
 ;; PUBLIC: find the ultimate class of a derived mode.
 
 (defun derived-mode-class (mode)