comparison lisp/derived.el @ 29223:8abed1831e4f

Fix keywords. (define-derived-mode): Only define if needed.

29222:10f869e6566b


;;; Commentary:

;; Obsolete.
;; Use the `derived-major-mode' provided by easy-mmode.el instead.
;; It is only kept for backward compatibility with byte-compiled files
;; which refer to `derived-mode-init-mode-variables' and other functions.



;; GNU Emacs is already, in a sense, object oriented -- each object
;; (buffer) belongs to a class (major mode), and that class defines

;;; Code:

;; PUBLIC: define a new major mode which inherits from an existing one.

;; ;;;###autoload
(defmacro define-derived-mode (child parent name &optional docstring &rest body)
  "Create a new mode as a variant of an existing mode.

The arguments to this command are as follow:

;;;					; Run the setup function, if
;;;					; any -- this will soon be
;;;					; obsolete.
;;;	 (derived-mode-run-setup-function (quote ,child))
					; Run the hooks, if any.
       (derived-mode-run-hooks (quote ,child)))))


;; PUBLIC: find the ultimate class of a derived mode.

(defun derived-mode-class (mode)

29223:8abed1831e4f


;;; Commentary:

;; Obsolete.
;; Use the `derived-major-mode' provided by easy-mmode.el instead.
;; It is only kept for backward compatibility with Emacs-20 byte-compiled
;; files that refer to `derived-mode-init-mode-variables' and other functions.



;; GNU Emacs is already, in a sense, object oriented -- each object
;; (buffer) belongs to a class (major mode), and that class defines

;;; Code:

;; PUBLIC: define a new major mode which inherits from an existing one.

;; ;;;###autoload
;; Don't override the definition provided by easy-mmode.el
(unless (fboundp 'define-derived-mode)
(defmacro define-derived-mode (child parent name &optional docstring &rest body)
  "Create a new mode as a variant of an existing mode.

The arguments to this command are as follow:

;;;					; Run the setup function, if
;;;					; any -- this will soon be
;;;					; obsolete.
;;;	 (derived-mode-run-setup-function (quote ,child))
					; Run the hooks, if any.
       (derived-mode-run-hooks (quote ,child))))))


;; PUBLIC: find the ultimate class of a derived mode.

(defun derived-mode-class (mode)