[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 82a5e4d: Fix free var FOO-mode-{syntax, abbrev}-tab
From: |
Noam Postavsky |
Subject: |
[Emacs-diffs] master 82a5e4d: Fix free var FOO-mode-{syntax, abbrev}-table warnings |
Date: |
Fri, 20 Jan 2017 01:27:00 +0000 (UTC) |
branch: master
commit 82a5e4dc889ecbfa35374616fe9c5edfa23f4504
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>
Fix free var FOO-mode-{syntax,abbrev}-table warnings
* lisp/emacs-lisp/derived.el (define-derived-mode): Unconditionally
defvar the syntax and abbrev tables so that the compiler will know that
they are dynamically bound variables (Bug#25446).
---
lisp/emacs-lisp/derived.el | 2 ++
1 file changed, 2 insertions(+)
diff --git a/lisp/emacs-lisp/derived.el b/lisp/emacs-lisp/derived.el
index 762c762..fffe972 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.
(purecopy ,(format "Keymap for `%s'." child))))
,(if declare-syntax
`(progn
+ (defvar ,syntax)
(unless (boundp ',syntax)
(put ',syntax 'definition-name ',child)
(defvar ,syntax (make-syntax-table)))
@@ -224,6 +225,7 @@ No problems result if this variable is not bound.
(purecopy ,(format "Syntax table for `%s'." child))))))
,(if declare-abbrev
`(progn
+ (defvar ,abbrev)
(unless (boundp ',abbrev)
(put ',abbrev 'definition-name ',child)
(defvar ,abbrev
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 82a5e4d: Fix free var FOO-mode-{syntax, abbrev}-table warnings,
Noam Postavsky <=