From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 12 Sep 2002 03:22:40 +0000 (+0000)
Subject: (define-derived-mode): When making new abbrev table,
X-Git-Tag: ttn-vms-21-2-B4~13216
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=45ee08fddcf6592503055cdf2351ae31f8752d8b;p=emacs.git

(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 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))