bug#64456: Incorrect behavior of check-parens

[Andrey Pudov]

Hey Eli,

Thank you for pointing this out to emacs -Q. This problem is definitely related somehow to my own setup. I am not able to reproduce the problem on emacs -Q. Will try to figure out which part of my configuration is causing it. Thank you again!

• Andrey
  

---

From: Eli Zaretskii <eliz@gnu.org>
Sent: Tuesday, July 4, 2023 1:32 PM
To: Andrey Pudov <mail@andreypudov.com>
Cc: 64456@debbugs.gnu.org <64456@debbugs.gnu.org>
Subject: Re: bug#64456: Incorrect behavior of check-parens

 

> From: Andrey Pudov <mail@andreypudov.com>
> Date: Mon, 3 Jul 2023 18:41:20 +0000
> msip_labels:
>
> The following code snippet causes a problem with check-parens:
>
> (defconst jetbrains-ligature-mode--ligatures
>    '("-->" "//" "/**" "/*" "*/" "<!--" ":=" "->>" "<<-" "->" "<-"
>      "<=>" "==" "!=" "<=" ">=" "=:=" "!==" "&&" "||" "..." ".."
>      "|||" "///" "&&&" "===" "++" "--" "=>" "|>" "<|" "||>" "<||"
>      "|||>" "<|||" ">>" "<<" "::=" "|]" "[|" "{|" "|}"
>      "[<" ">]" ":?>" ":?" "/=" "[||]" "!!" "?:" "?." "::"
>      "+++" "??" "###" "##" ":::" "####" ".?" "?=" "=!=" "<|>"
>      "<:" ":<" ":>" ">:" "<>" "***" ";;" "/==" ".=" ".-" "__"
>      "=/=" "<-<" "<<<" ">>>" "<=<" "<<=" "<==" "<==>" "==>" "=>>"
>      ">=>" ">>=" ">>-" ">-" "<~>" "-<" "-<<" "=<<" "---" "<-|"
>      "<=|" "/\\" "\\/" "|=>" "|~>" "<~~" "<~" "~~" "~~>" "~>"
>      "<$>" "<$" "$>" "<+>" "<+" "+>" "<*>" "<*" "*>" "</>" "</" "/>"
>      "<->" "..<" "~=" "~-" "-~" "~@" "^=" "-|" "_|_" "|-" "||-"
>      "|=" "||=" "#{" "#[" "]#" "#(" "#?" "#_" "#_(" "#:" "#!" "#="
>      "&="))
>
> An error message:
> Error { name: UnmatchedCloseParen, message: "Unmatched close-paren.", x: 37, line_no: 75,
> input_x: 37, input_line_no: 75 }

I cannot reproduce this, neither with Emacs 28.2 nor with the current
emacs-29 branch.  Can you post a more detailed recipe, starting from
"emacs -Q"?

What I did:

  . copied the snippet you posted to a foo.el file
  . visited foo.el from 'emacs -Q"
  . typed "M-x check-parens RET"

This completed without any error messages.