From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 13 Apr 2024 01:54:53 +0000 (-0400)
Subject: (elisp-tests-syntax-propertize): New test for bug#24542
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b5a5f5f1dfef1aca837ec67e6665fac5e8b0d97c;p=emacs.git

(elisp-tests-syntax-propertize): New test for bug#24542

* test/lisp/progmodes/elisp-mode-tests.el (elisp-tests-syntax-propertize):
New test.

(cherry picked from commit e8adb8cf5a51ef172fb07786b71e3140b9358764)
---

diff --git a/test/lisp/progmodes/elisp-mode-tests.el b/test/lisp/progmodes/elisp-mode-tests.el
index 1d1ef9981e5..591c32a8271 100644
--- a/test/lisp/progmodes/elisp-mode-tests.el
+++ b/test/lisp/progmodes/elisp-mode-tests.el
@@ -1131,5 +1131,14 @@ evaluation of BODY."
                         (emacs-lisp-mode)
                         (indent-region (point-min) (point-max)))))
 
+(ert-deftest elisp-tests-syntax-propertize ()
+  (with-temp-buffer
+    (emacs-lisp-mode)
+    (insert "(a '@)")                   ;bug#24542
+    (should (equal (scan-sexps (+ (point-min) 3) 1) (1- (point-max))))
+    (erase-buffer)
+    (insert "(a ,@)")
+    (should-error (scan-sexps (+ (point-min) 3) 1))))
+
 (provide 'elisp-mode-tests)
 ;;; elisp-mode-tests.el ends here