[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/derived.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/derived.el |
Date: |
Fri, 28 Jun 2002 10:57:09 -0400 |
Index: emacs/lisp/derived.el
diff -c emacs/lisp/derived.el:1.30 emacs/lisp/derived.el:1.31
*** emacs/lisp/derived.el:1.30 Wed Dec 12 04:26:55 2001
--- emacs/lisp/derived.el Fri Jun 28 10:57:08 2002
***************
*** 178,185 ****
; Identify special modes.
,(when parent
`(progn
! (if (get (quote ,parent) 'special)
! (put (quote ,child) 'special t))
; Set up maps and tables.
(unless (keymap-parent ,map)
(set-keymap-parent ,map (current-local-map)))
--- 178,186 ----
; Identify special modes.
,(when parent
`(progn
! (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,219 ****
"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."
(while (get mode 'derived-mode-parent)
(setq mode (get mode 'derived-mode-parent)))
mode)
;;; PRIVATE
--- 210,221 ----
"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 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/derived.el,
Stefan Monnier <=