mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-23 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

(define-derived-mode): Put `definition-name'

Browse source 
properties on the constructed variable names.
This commit is contained in:
Juri Linkov 2005-12-04 02:33:41 +00:00
parent c6a3142d9e
commit cc793355dc
1 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -200,12 +200,19 @@ See Info node `(elisp)Derived Modes' for more details."
No problems result if this variable is not bound. No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)" `add-hook' automatically binds it. (This is true for all hook variables.)"
name))) name)))
(unless (boundp ',map)
(put ',map 'definition-name ',child))
(defvar ,map (make-sparse-keymap)) (defvar ,map (make-sparse-keymap))
,(if declare-syntax ,(if declare-syntax
`(defvar ,syntax (make-syntax-table))) `(progn
(unless (boundp ',syntax)
(put ',syntax 'definition-name ',child))
(defvar ,syntax (make-syntax-table))))
,(if declare-abbrev ,(if declare-abbrev
`(defvar ,abbrev `(progn
(progn (define-abbrev-table ',abbrev nil) ,abbrev))) (put ',abbrev 'definition-name ',child)
(defvar ,abbrev
(progn (define-abbrev-table ',abbrev nil) ,abbrev))))
(put ',child 'derived-mode-parent ',parent) (put ',child 'derived-mode-parent ',parent)
,(if group `(put ',child 'custom-mode-group ,group)) ,(if group `(put ',child 'custom-mode-group ,group))