summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>2023-07-15 10:21:07 +0300
committerEli Zaretskii <eliz@gnu.org>2023-07-15 10:21:07 +0300
commitc5fb7301599dc249a877ce65175f2dbc3355b2ec (patch)
tree28f0f4fa6c1f4c2dab7d6dc09902e1b6cdea7fbe
parentea696ea4b9a9e8bc059e4bdb4cdbb935bf7f12f0 (diff)
downloademacs-c5fb7301599dc249a877ce65175f2dbc3355b2ec.tar.gz
; * lisp/paren.el (show-paren-function): Fix last change (bug#64547).
-rw-r--r--lisp/paren.el5
1 files 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))