mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases 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
Show Stats 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.
`add-hook' automatically binds it. (This is true for all hook variables.)"
name)))
(unless (boundp ',map)
(put ',map 'definition-name ',child))
(defvar ,map (make-sparse-keymap))
,(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
`(defvar ,abbrev
(progn (define-abbrev-table ',abbrev nil) ,abbrev)))
`(progn
(put ',abbrev 'definition-name ',child)
(defvar ,abbrev
(progn (define-abbrev-table ',abbrev nil) ,abbrev))))
(put ',child 'derived-mode-parent ',parent)
,(if group `(put ',child 'custom-mode-group ,group))