From 0ee25e8e37b5c57a7e8d2e526c189cbf0c5239a6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 12 Dec 2001 09:29:20 +0000 Subject: [PATCH] (derived-mode-p): Function moved to subr.el. --- lisp/ChangeLog | 4 ++++ lisp/derived.el | 11 ----------- 2 files changed, 4 insertions(+), 11 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1821419e666..d505d475b04 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2001-12-11 Richard M. Stallman + * derived.el (derived-mode-p): Function moved to subr.el. + + * subr.el (derived-mode-p): Moved here from derived.el. + * international/mule.el (set-auto-coding): Use set-auto-mode-1. * files.el (set-auto-mode-1): New subroutine, broken out of diff --git a/lisp/derived.el b/lisp/derived.el index 3e899c09fea..3586affe216 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) -- 2.39.2