Mercurial > emacs

changeset 41976:1ae6951459ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(derived-mode-p): Function moved to subr.el.
author Richard M. Stallman <rms@gnu.org>
date Wed, 12 Dec 2001 09:26:55 +0000
parents 2b1145fdbe6e
children d675fc522ca4
files lisp/derived.el
diffstat 1 files changed, 0 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/derived.el	Wed Dec 12 09:26:43 2001 +0000
+++ b/lisp/derived.el	Wed Dec 12 09:26:55 2001 +0000
@@ -203,17 +203,6 @@
 					; 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)