From 301023ec491c4578f3b9f05ff845c1498c6a29ad Mon Sep 17 00:00:00 2001 From: Roland Winkler Date: Tue, 7 Jan 2025 11:56:48 -0600 Subject: [PATCH] bibtex-braced-string-syntax-table: fix bug #68477 * lisp/textmodes/bibtex.el (bibtex-braced-string-syntax-table): Give all parentheses the syntax punctuation so that we do not choke because of unbalanced parentheses other than braces (bug (cherry picked from commit 1ef7deb2f723f9129135e8676366d79eee83e870) --- lisp/textmodes/bibtex.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el index 0ea72e3abe9..a8f803f7313 100644 --- a/lisp/textmodes/bibtex.el +++ b/lisp/textmodes/bibtex.el @@ -1880,12 +1880,15 @@ BibTeX field as necessary." (defconst bibtex-braced-string-syntax-table (let ((st (make-syntax-table))) + ;; Give all parentheses the syntax punctuation so that we do not choke + ;; because of unbalanced parentheses other than braces (bug #68477). + (map-char-table + (lambda (key value) + (if (memq (car value) '(4 5)) ; 4 = open parenthesis, 5 = close + (modify-syntax-entry key "." st))) + st) (modify-syntax-entry ?\{ "(}" st) (modify-syntax-entry ?\} "){" st) - (modify-syntax-entry ?\[ "." st) - (modify-syntax-entry ?\] "." st) - (modify-syntax-entry ?\( "." st) - (modify-syntax-entry ?\) "." st) (modify-syntax-entry ?\\ "." st) (modify-syntax-entry ?\" "." st) st) -- 2.39.5