From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 29 Jun 2023 18:21:28 +0000 (+0300)
Subject: ; * lisp/calculator.el (calculator-need-3-lines): Fix last change.
X-Git-Tag: emacs-29.1-rc1~92
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=65f146cf1c275cfce2265a5911c6460374ef153b;p=emacs.git

; * lisp/calculator.el (calculator-need-3-lines): Fix last change.
---

diff --git a/lisp/calculator.el b/lisp/calculator.el
index dbfba0b5bb7..b744f11e1e9 100644
--- a/lisp/calculator.el
+++ b/lisp/calculator.el
@@ -746,7 +746,8 @@ See the documentation for `calculator-mode' for more information."
              ;; use 3 lines
              (let* ((bx (face-attribute 'mode-line :box))
                     (lh (plist-get bx :line-width)))
-               (and bx (or (not lh) (> (if (listp lh) (cdr lh) lh) 0))))
+               ;; Value of `:line-width' can be either a number or a cons.
+               (and bx (or (not lh) (> (if (consp lh) (cdr lh) lh) 0))))
              ;; if the mode line has an overline, use 3 lines
              (not (memq (face-attribute 'mode-line :overline)
                         '(nil unspecified)))))))