[Emacs-diffs] Changes to emacs/lisp/derived.el

[Stefan Monnier]

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