1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00

(define-derived-mode): When making new abbrev table,

don't try to copy the parent's abbrev table.
This commit is contained in:
Richard M. Stallman 2002-09-12 03:22:40 +00:00
parent 509b4dbc0b
commit 45ee08fddc

View File

@ -215,17 +215,7 @@ been generated automatically, with a reference to the keymap."
`(let ((parent (char-table-parent ,syntax)))
(unless (and parent
(not (eq parent (standard-syntax-table))))
(set-char-table-parent ,syntax (syntax-table)))))
,(when declare-abbrev
`(when local-abbrev-table
(mapatoms
(lambda (symbol)
(or (intern-soft (symbol-name symbol) ,abbrev)
(define-abbrev ,abbrev
(symbol-name symbol)
(symbol-value symbol)
(symbol-function symbol))))
local-abbrev-table)))))
(set-char-table-parent ,syntax (syntax-table)))))))
(use-local-map ,map)
,(when syntax `(set-syntax-table ,syntax))