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

b6b7eda9 · Stefan Monnier · 0b5549c1 · b6b7eda9
Commit b6b7eda9 authored Nov 21, 2001 by Stefan Monnier
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

lisp/derived.el lisp/derived.el +2 -2

No files found.
--- 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 ()