From 7fba3c23dfcb13daab6faabefa595c6b0f4cf5ec Mon Sep 17 00:00:00 2001 From: Tassilo Horn Date: Thu, 12 Mar 2026 08:41:31 +0100 Subject: [PATCH] Don't strip face properties in blink-paren-open-paren-line-string With bug#59527 we ensured that the open paren line string was fontified which was broken again with bug#63089 because there, the opening paren was fontified with a new face. With this change, the returned string is fontified again. Only if `blink-matching-paren-highlight-offscreen' is non-nil, the opening paren is unfontified and then fontified again with the `blink-matching-paren-offscreen' face. * lisp/simple.el (blink-paren-open-paren-line-string): Keep returned line string fontified with slight exception if `blink-matching-paren-highlight-offscreen' is non-nil. --- lisp/simple.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 44aa26eb0d0..b0669d674ee 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -9691,7 +9691,6 @@ face if `blink-matching-paren-highlight-offscreen' is non-nil." regions "...")) (openparen-next-char-idx (1+ openparen-idx))) - (setq line-string (substring-no-properties line-string)) (concat (substring line-string 0 openparen-idx) @@ -9699,8 +9698,9 @@ face if `blink-matching-paren-highlight-offscreen' is non-nil." (substring line-string openparen-idx openparen-next-char-idx))) (if blink-matching-paren-highlight-offscreen - (propertize matched-offscreen-openparen - 'face 'blink-matching-paren-offscreen) + (propertize + (substring-no-properties matched-offscreen-openparen) + 'face 'blink-matching-paren-offscreen) matched-offscreen-openparen)) (substring line-string openparen-next-char-idx))))))