[Top][All Lists]
[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 ----
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/derived.el,
Richard M. Stallman <=