diff options
| author | Stefan Monnier <[email protected]> | 2002-06-28 14:57:08 +0000 |
|---|---|---|
| committer | Stefan Monnier <[email protected]> | 2002-06-28 14:57:08 +0000 |
| commit | 2768929d660b954a90995a4f6e7c0d12f59929f8 (patch) | |
| tree | dffc7788fd3ec6cb265236505725ef3c93428680 /lisp/derived.el | |
| parent | 1aa1cb6611ed1c524b191bc483026d2376b85c53 (diff) | |
(define-derived-mode): Preserve `mode-class' rather than `special' property.
(derived-mode-class): Make it obsolete.
Diffstat (limited to 'lisp/derived.el')
| -rw-r--r-- | lisp/derived.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/derived.el b/lisp/derived.el index 3586affe21..994509855e 100644 --- a/lisp/derived.el +++ b/lisp/derived.el @@ -178,8 +178,9 @@ been generated automatically, with a reference to the keymap." ; Identify special modes. ,(when parent `(progn - (if (get (quote ,parent) 'special) - (put (quote ,child) 'special t)) + (if (get (quote ,parent) 'mode-class) + (put (quote ,child) 'mode-class + (get (quote ,parent) 'mode-class))) ; Set up maps and tables. (unless (keymap-parent ,map) (set-keymap-parent ,map (current-local-map))) @@ -209,11 +210,12 @@ been generated automatically, with a reference to the keymap." "Find the class of a major MODE. A mode's class is the first ancestor which is NOT a derived mode. Use the `derived-mode-parent' property of the symbol to trace backwards. -Since major-modes might derive from each other and from `fundamental-mode', -this function is not very useful. Use `derived-mode-p' instead." +Since major-modes might all derive from `fundamental-mode', this function +is not very useful." (while (get mode 'derived-mode-parent) (setq mode (get mode 'derived-mode-parent))) mode) +(make-obsolete 'derived-mode-class 'derived-mode-p "21.4") ;;; PRIVATE |