diff options
author | Richard M. Stallman <[email protected]> | 2002-09-12 03:22:40 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 2002-09-12 03:22:40 +0000 |
commit | 45ee08fddcf6592503055cdf2351ae31f8752d8b (patch) | |
tree | 9c555f080960e95010ea2e6b2c0c529d8dbbfec2 /lisp/derived.el | |
parent | 509b4dbc0bf2921822e29c7650ecdf81630b327f (diff) |
(define-derived-mode): When making new abbrev table,
don't try to copy the parent's abbrev table.
Diffstat (limited to 'lisp/derived.el')
-rw-r--r-- | lisp/derived.el | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/lisp/derived.el b/lisp/derived.el index f3e8e06b8e..87b3738728 100644 --- a/lisp/derived.el +++ b/lisp/derived.el @@ -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)) |