[Emacs-diffs] emacs-26 a539eb5: * test/src/lread-tests.el (lread-test-bug-31186): New test.

[Eli Zaretskii]

branch: emacs-26
commit a539eb51acb0478f74325fee0080a05e76b795c6
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    * 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 5c3fea7..eb212f3 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