aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/emacs-lisp/derived.el2
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/derived.el b/lisp/emacs-lisp/derived.el
index 762c7624577..fffe972460c 100644
--- a/lisp/emacs-lisp/derived.el
+++ b/lisp/emacs-lisp/derived.el
@@ -216,6 +216,7 @@ No problems result if this variable is not bound.
216 (purecopy ,(format "Keymap for `%s'." child)))) 216 (purecopy ,(format "Keymap for `%s'." child))))
217 ,(if declare-syntax 217 ,(if declare-syntax
218 `(progn 218 `(progn
219 (defvar ,syntax)
219 (unless (boundp ',syntax) 220 (unless (boundp ',syntax)
220 (put ',syntax 'definition-name ',child) 221 (put ',syntax 'definition-name ',child)
221 (defvar ,syntax (make-syntax-table))) 222 (defvar ,syntax (make-syntax-table)))
@@ -224,6 +225,7 @@ No problems result if this variable is not bound.
224 (purecopy ,(format "Syntax table for `%s'." child)))))) 225 (purecopy ,(format "Syntax table for `%s'." child))))))
225 ,(if declare-abbrev 226 ,(if declare-abbrev
226 `(progn 227 `(progn
228 (defvar ,abbrev)
227 (unless (boundp ',abbrev) 229 (unless (boundp ',abbrev)
228 (put ',abbrev 'definition-name ',child) 230 (put ',abbrev 'definition-name ',child)
229 (defvar ,abbrev 231 (defvar ,abbrev