Commit 45ee08fd authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

don't try to copy the parent's abbrev table.
parent 509b4dbc
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment