mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

Add comment.

Browse source
This commit is contained in:
Stefan Monnier 2005-06-12 16:57:08 +00:00
parent 0e659f576a
commit 84ae490875
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/emacs-lisp/derived.el
View file

@ -1,5 +1,5 @@
;;; derived.el --- allow inheritance of major modes ;;; derived.el --- allow inheritance of major modes
;;; (formerly mode-clone.el) ;; (formerly mode-clone.el)
;; Copyright (C) 1993, 1994, 1999, 2003 Free Software Foundation, Inc. ;; Copyright (C) 1993, 1994, 1999, 2003 Free Software Foundation, Inc.
@ -221,6 +221,12 @@ See Info node `(elisp)Derived Modes' for more details."
(get (quote ,parent) 'mode-class))) (get (quote ,parent) 'mode-class)))
; Set up maps and tables. ; Set up maps and tables.
(unless (keymap-parent ,map) (unless (keymap-parent ,map)
;; It would probably be better to set the keymap's parent
;; at the toplevel rather than inside the mode function,
;; but this is not easy for at least the following reasons:
;; - the parent (and its keymap) may not yet be loaded.
;; - the parent's keymap name may be called something else
;; than <parent>-mode-map.
(set-keymap-parent ,map (current-local-map))) (set-keymap-parent ,map (current-local-map)))
,(when declare-syntax ,(when declare-syntax
`(let ((parent (char-table-parent ,syntax))) `(let ((parent (char-table-parent ,syntax)))
@ -440,5 +446,5 @@ Where the new table already has an entry, nothing is copied from the old one."
(provide 'derived) (provide 'derived)
;;; arch-tag: 630be248-47d1-4f02-afa0-8207de0ebea0 ;; arch-tag: 630be248-47d1-4f02-afa0-8207de0ebea0
;;; derived.el ends here ;;; derived.el ends here