diff options
| -rw-r--r-- | lisp/emacs-lisp/derived.el | 2 |
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 |