mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

Fix keywords.

Browse Source 
(define-derived-mode): Only define if needed.
This commit is contained in:
Stefan Monnier 2000-05-26 00:42:50 +00:00
parent 8711588dc4
commit 8ccce2b002
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/ChangeLog
View File

@ -1,6 +1,7 @@
2000-05-25 Stefan Monnier <monnier@cs.yale.edu>
* derived.el: Fix keywords.
(define-derived-mode): Only define if needed.
* simple.el (fill-comment, comment-column, comment-start)
(comment-start-skip, comment-end, comment-indent-function)

8
lisp/derived.el
View File

@ -28,8 +28,8 @@
;; 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.
;; It is only kept for backward compatibility with Emacs-20 byte-compiled
;; files that refer to `derived-mode-init-mode-variables' and other functions.
@ -104,6 +104,8 @@
;; 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.
@ -168,7 +170,7 @@ been generated automatically, with a reference to the keymap."
;;; ; obsolete.
;;; (derived-mode-run-setup-function (quote ,child))
; Run the hooks, if any.
(derived-mode-run-hooks (quote ,child)))))
(derived-mode-run-hooks (quote ,child))))))
;; PUBLIC: find the ultimate class of a derived mode.