emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Richard M. Stallman
Subject: [Emacs-diffs] Changes to emacs/lisp/derived.el
Date: Wed, 12 Dec 2001 04:26:56 -0500

Index: emacs/lisp/derived.el
diff -c emacs/lisp/derived.el:1.29 emacs/lisp/derived.el:1.30
*** emacs/lisp/derived.el:1.29  Tue Nov 20 21:53:46 2001
--- emacs/lisp/derived.el       Wed Dec 12 04:26:55 2001
***************
*** 203,219 ****
                                        ; Run the hooks, if any.
         (run-mode-hooks ',hook)))))
  
- ;; PUBLIC: find if the current mode derives from another.
- 
- ;;;###autoload
- (defun derived-mode-p (&rest modes)
-   "Non-nil if the current major mode is derived from one of MODES.
- Uses the `derived-mode-parent' property of the symbol to trace backwards."
-   (let ((parent major-mode))
-     (while (and (not (memq parent modes))
-               (setq parent (get parent 'derived-mode-parent))))
-     parent))
- 
  ;; PUBLIC: find the ultimate class of a derived mode.
  
  (defun derived-mode-class (mode)
--- 203,208 ----



reply via email to

[Prev in Thread] Current Thread [Next in Thread]