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

diff --git a/lisp/paren.el b/lisp/paren.el
index 54a2c23f17fa861d5d370f7281bfdfe24f8554a6..6296d7e67fa09b4c7d12cf56ecca50f3b0483687 100644 (file)
--- 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))