From c5fb7301599dc249a877ce65175f2dbc3355b2ec Mon Sep 17 00:00:00 2001 From: Eli Zaretskii 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.2