From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 15 Jan 2022 13:15:54 +0000 (+0100)
Subject: Don't strip properties in show-paren-function
X-Git-Tag: emacs-29.0.90~3029
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=17231a26d8ca754dab4eaf54c93f179f3465fd0c;p=emacs.git

Don't strip properties in show-paren-function

* lisp/paren.el (show-paren-function): Don't strip text properties
(bug#51606) because that makes the offscreen context less
informative.
---

diff --git a/lisp/paren.el b/lisp/paren.el
index a1f74f2097e..0065bba72e7 100644
--- a/lisp/paren.el
+++ b/lisp/paren.el
@@ -330,9 +330,7 @@ It is the default value of `show-paren-data-function'."
                 (let ((open-paren-line-string
                        (blink-paren-open-paren-line-string openparen))
                       (message-log-max nil))
-                  (minibuffer-message
-                   "Matches %s"
-                   (substring-no-properties open-paren-line-string)))))
+                  (minibuffer-message "Matches %s" open-paren-line-string))))
           ;; Always set the overlay face, since it varies.
           (overlay-put show-paren--overlay 'priority show-paren-priority)
           (overlay-put show-paren--overlay 'face face))))))