From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 21 Nov 2001 02:53:46 +0000 (+0000)
Subject: (define-derived-mode): Create the abbrev-table from inside the `defvar'.
X-Git-Tag: ttn-vms-21-2-B4~18319
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b6b7eda9f05b8e1ccab20357a82a602536481221;p=emacs.git

(define-derived-mode): Create the abbrev-table from inside the `defvar'.
---

diff --git a/lisp/derived.el b/lisp/derived.el
index 13e18548321..3e899c09fea 100644
--- a/lisp/derived.el
+++ b/lisp/derived.el
@@ -161,8 +161,8 @@ been generated automatically, with a reference to the keymap."
     `(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 ()