/[emacs]/emacs/lisp/derived.el
ViewVC logotype

Diff of /emacs/lisp/derived.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.29 by monnier, Wed Nov 21 02:53:46 2001 UTC revision 1.30 by rms, Wed Dec 12 09:26:55 2001 UTC
# Line 203  been generated automatically, with a ref Line 203  been generated automatically, with a ref
203                                          ; Run the hooks, if any.                                          ; Run the hooks, if any.
204           (run-mode-hooks ',hook)))))           (run-mode-hooks ',hook)))))
205    
 ;; 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))  
   
206  ;; PUBLIC: find the ultimate class of a derived mode.  ;; PUBLIC: find the ultimate class of a derived mode.
207    
208  (defun derived-mode-class (mode)  (defun derived-mode-class (mode)

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26