From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 6 May 2022 16:38:09 +0000 (+0200)
Subject: Fix forward-sexp for Unicode names in Emacs Lisp mode
X-Git-Tag: emacs-29.0.90~1931^2~13
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2d2c448efe9ef02e60a24e10918bbc18213da242;p=emacs.git

Fix forward-sexp for Unicode names in Emacs Lisp mode

* lisp/progmodes/elisp-mode.el (elisp-mode-syntax-propertize):
Make forward-sexp work for Unicode character names (bug#23354).
---

diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el
index 409055289dc..0b647d247b9 100644
--- a/lisp/progmodes/elisp-mode.el
+++ b/lisp/progmodes/elisp-mode.el
@@ -244,6 +244,11 @@ Comments in the form will be lost."
     ;; Empty symbol.
     ("##" (0 (unless (nth 8 (syntax-ppss))
                (string-to-syntax "_"))))
+    ;; Unicode character names.  (The longest name is 88 characters
+    ;; long.)
+    ("\\?\\\\N{[-A-Z ]\\{,88\\}}"
+     (0 (unless (nth 8 (syntax-ppss))
+          (string-to-syntax "_"))))
     ((rx "#" (or (seq (group-n 1 "&" (+ digit)) ?\") ; Bool-vector.
                  (seq (group-n 1 "s") "(")           ; Record.
                  (seq (group-n 1 (+ "^")) "[")))     ; Char-table.