procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(define-derived-mode): Give the mode's map, and syntax and abbrev

Browse source 
tables basic docs, if they don't have any.
This commit is contained in:
Glenn Morris 2009-09-10 06:21:23 +00:00
parent 117fdd32c7
commit b43704f2d7
1 changed files with 14 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,8 +1,8 @@
;;; derived.el --- allow inheritance of major modes
;; (formerly mode-clone.el)
;; Copyright (C) 1993, 1994, 1999, 2001, 2002, 2003, 2004,
;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
;; Copyright (C) 1993, 1994, 1999, 2001, 2002, 2003, 2004, 2005, 2006,
;; 2007, 2008, 2009 Free Software Foundation, Inc.
;; Author: David Megginson (dmeggins@aix1.uottawa.ca)
;; Maintainer: FSF
@ -193,7 +193,7 @@ See Info node `(elisp)Derived Modes' for more details."
parent child docstring syntax abbrev))
`(progn
(unless (get ',hook 'variable-documentation)
(unless (get ',hook 'variable-documentation)
(put ',hook 'variable-documentation
,(format "Hook run when entering %s mode.
No problems result if this variable is not bound.
@ -202,16 +202,25 @@ No problems result if this variable is not bound.
(unless (boundp ',map)
(put ',map 'definition-name ',child))
(defvar ,map (make-sparse-keymap))
(unless (get ',map 'variable-documentation)
(put ',map 'variable-documentation
,(format "Keymap for `%s'." child)))
,(if declare-syntax
`(progn
(unless (boundp ',syntax)
(put ',syntax 'definition-name ',child))
(defvar ,syntax (make-syntax-table))))
(defvar ,syntax (make-syntax-table))
(unless (get ',syntax 'variable-documentation)
(put ',syntax 'variable-documentation
,(format "Syntax table for `%s'." child)))))
,(if declare-abbrev
`(progn
(put ',abbrev 'definition-name ',child)
(defvar ,abbrev
(progn (define-abbrev-table ',abbrev nil) ,abbrev))))
(progn (define-abbrev-table ',abbrev nil) ,abbrev)
(unless (get ',abbrev 'variable-documentation)
(put ',abbrev 'variable-documentation
,(format "Abbrev table for `%s'." child))))))
(put ',child 'derived-mode-parent ',parent)
,(if group `(put ',child 'custom-mode-group ,group))