diff options
| author | Juri Linkov <juri@linkov.net> | 2024-12-05 20:15:12 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2024-12-05 20:15:12 +0200 |
| commit | 61d06762975fb203ae06a57d30397d699164ebc1 (patch) | |
| tree | c5e1dacaec6d07de25af0a4fe3baa2e960ff87fd /lisp/emacs-lisp | |
| parent | ed9eaaa9964f46ef5f9a9c084a1cb8f1ae1926a3 (diff) | |
| download | emacs-61d06762975fb203ae06a57d30397d699164ebc1.tar.gz emacs-61d06762975fb203ae06a57d30397d699164ebc1.tar.bz2 emacs-61d06762975fb203ae06a57d30397d699164ebc1.zip | |
* lisp/emacs-lisp/lisp-mode.el (lisp-fdefs): Fix font-lock (bug#74307).
Move '(not "\\")' inside the group to not exclude the last character
for "\\<>" and similar constructs.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 99980a44ddf..4b89eb91387 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -491,16 +491,16 @@ This will generate compile-time constants from BINDINGS." ;; Words inside \\[], \\<>, \\{} or \\`' tend to be for ;; `substitute-command-keys'. (,(rx "\\\\" (or (seq "[" - (group-n 1 lisp-mode-symbol) (not "\\") "]") + (group-n 1 (seq lisp-mode-symbol (not "\\"))) "]") (seq "`" (group-n 1 ;; allow multiple words, e.g. "C-x a" lisp-mode-symbol (* " " lisp-mode-symbol)) "'"))) (1 font-lock-constant-face prepend)) (,(rx "\\\\" (or (seq "<" - (group-n 1 lisp-mode-symbol) (not "\\") ">") + (group-n 1 (seq lisp-mode-symbol (not "\\"))) ">") (seq "{" - (group-n 1 lisp-mode-symbol) (not "\\") "}"))) + (group-n 1 (seq lisp-mode-symbol (not "\\"))) "}"))) (1 font-lock-variable-name-face prepend)) ;; Ineffective backslashes (typically in need of doubling). ("\\(\\\\\\)\\([^\"\\]\\)" |