Mercurial > emacs

changeset 41339:64aa5094a7cb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(define-derived-mode): Create the abbrev-table from inside the `defvar'.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 21 Nov 2001 02:53:46 +0000
parents d3f61a933b49
children 00ed4838100e
files lisp/derived.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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 ()