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

don't try to copy the parent's abbrev table.

diff --git a/lisp/derived.el b/lisp/derived.el
index f3e8e06b8e4bcbf8484bb7a307352ec1df8e6913..87b37387285781f75fe09ffa6dcfaaad0bd37a1e 100644 (file)
--- 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))