[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH 1/2] Add new function derived-mode-parents
From: |
Julien Danjou |
Subject: |
[PATCH 1/2] Add new function derived-mode-parents |
Date: |
Tue, 8 Feb 2011 19:43:12 +0100 |
Signed-off-by: Julien Danjou <address@hidden>
---
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 <address@hidden>
+
+ * emacs-lisp/derived.el (derived-mode-parents): New function.
+
2011-02-07 Jay Belanger <address@hidden>
* 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))))
;;; PRIVATE
--
1.7.2.3
- [PATCH 1/2] Add new function derived-mode-parents,
Julien Danjou <=
Re: [PATCH 1/2] Add new function derived-mode-parents, Stefan Monnier, 2011/02/08