From c5fb7301599dc249a877ce65175f2dbc3355b2ec Mon Sep 17 00:00:00 2001
From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 15 Jul 2023 10:21:07 +0300
Subject: [PATCH] ; * lisp/paren.el (show-paren-function): Fix last change
(bug#64547).
---
lisp/paren.el | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/lisp/paren.el b/lisp/paren.el
index 54a2c23f17f..6296d7e67fa 100644
--- a/lisp/paren.el
+++ b/lisp/paren.el
@@ -515,10 +515,9 @@ It is the default value of `show-paren-data-function'."
;; ...or partially visible, and the
;; invisible part is less than 1/4th
;; of the default font height
- (or (< (length part) 4)
- (and
+ (and (>= (length part) 4)
(< (nth 2 part) dfh4)
- (< (nth 3 part) dfh4)))))))
+ (< (nth 3 part) dfh4))))))
(let ((context (blink-paren-open-paren-line-string
openparen))
(message-log-max nil))
--
2.39.5