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:
parent
509b4dbc0b
commit
45ee08fddc
@ -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))
|
||||
|
Loading…
Reference in New Issue
Block a user