[PATCH 1/2] Add new function derived-mode-parents

[Julien Danjou <julien@danjou.info>]

Signed-off-by: Julien Danjou <julien@danjou.info>
---
 lisp/ChangeLog             |    4 ++++
 lisp/emacs-lisp/derived.el |    7 +++++++
 2 files changed, 11 insertions(+), 0 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c3b8d52..3ea0487 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-02-08  Julien Danjou  <julien@danjou.info>
+
+	* emacs-lisp/derived.el (derived-mode-parents): New function.
+
 2011-02-07  Jay Belanger  <jay.p.belanger@gmail.com>
 
 	* calc/calc-units.el (math-logunits-quant): Add support for
diff --git a/lisp/emacs-lisp/derived.el b/lisp/emacs-lisp/derived.el
index 425a77e..5adba0e 100644
--- a/lisp/emacs-lisp/derived.el
+++ b/lisp/emacs-lisp/derived.el
@@ -277,6 +277,13 @@ is not very useful."
   mode)
 (make-obsolete 'derived-mode-class 'derived-mode-p "22.1")
 
+(defun derived-mode-parents (mode)
+  "Return the list of ancestors for MODE.
+MODE is included in the result."
+  (loop with mode = major-mode
+        while mode
+        collect mode
+        do (setq mode (get mode 'derived-mode-parent))))
 \f
 ;;; PRIVATE
 
-- 
1.7.2.3