# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1006311226 0
# Node ID 64aa5094a7cb50c561f5f2548446335d27f0a125
# Parent  d3f61a933b4938ecd59cab3cc6a08cfe7c226d39
(define-derived-mode): Create the abbrev-table from inside the `defvar'.

diff -r d3f61a933b49 -r 64aa5094a7cb lisp/derived.el
--- a/lisp/derived.el	Wed Nov 21 02:50:27 2001 +0000
+++ b/lisp/derived.el	Wed Nov 21 02:53:46 2001 +0000
@@ -161,8 +161,8 @@
     `(progn
        (defvar ,map (make-sparse-keymap))
        (defvar ,syntax (make-syntax-table))
-       (defvar ,abbrev)
-       (define-abbrev-table ',abbrev nil)
+       (defvar ,abbrev
+	 (progn (define-abbrev-table ',abbrev nil) ,abbrev))
        (put ',child 'derived-mode-parent ',parent)
 
        (defun ,child ()