From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 15 Jul 2023 07:21:07 +0000 (+0300)
Subject: ; * lisp/paren.el (show-paren-function): Fix last change (bug#64547).
X-Git-Tag: emacs-29.1-rc1~34
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c5fb7301599dc249a877ce65175f2dbc3355b2ec;p=emacs.git

; * lisp/paren.el (show-paren-function): Fix last change (bug#64547).
---

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))