From 45ee08fddcf6592503055cdf2351ae31f8752d8b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 12 Sep 2002 03:22:40 +0000 Subject: [PATCH] (define-derived-mode): When making new abbrev table, don't try to copy the parent's abbrev table. --- lisp/derived.el | 12 +----------- 1 file changed, 1 insertion(+), 11 deletions(-) diff --git a/lisp/derived.el b/lisp/derived.el index f3e8e06b8e4..87b37387285 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)) -- 2.39.5