From a539eb51acb0478f74325fee0080a05e76b795c6 Mon Sep 17 00:00:00 2001
From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 17 Apr 2018 18:40:41 +0300
Subject: [PATCH] * test/src/lread-tests.el (lread-test-bug-31186): New test.

---
 test/src/lread-tests.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/test/src/lread-tests.el b/test/src/lread-tests.el
index 5c3fea7e680..eb212f3c957 100644
--- a/test/src/lread-tests.el
+++ b/test/src/lread-tests.el
@@ -170,4 +170,12 @@ literals (Bug#20852)."
     (lread--substitute-object-in-subtree x 1 t)
     (should (eq x (cdr x)))))
 
+(ert-deftest lread-test-bug-31186 ()
+  (with-temp-buffer
+    (insert ";; -*- -:*-")
+    (should-not
+     ;; This used to crash in lisp_file_lexically_bound_p before the
+     ;; bug was fixed.
+     (eval-buffer))))
+
 ;;; lread-tests.el ends here
-- 
2.39.5