emacs-29 9e8386bdacc 1/3: Support cons cell as value of ':line-width' box attribute

[Eli Zaretskii]

branch: emacs-29
commit 9e8386bdacc890390bb90f69889117667019c979
Author: john muhl <jm@pub.pink>
Commit: Eli Zaretskii <eliz@gnu.org>

    Support cons cell as value of ':line-width' box attribute
    
    * lisp/calculator.el (calculator-need-3-lines): Support
    values of a face's ':line-width' box attribute that are
    cons cells.  (Bug#64344)
    
    Copyright-paperwork-exempt: yes
---
 lisp/calculator.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/calculator.el b/lisp/calculator.el
index 6a1d960c3e4..dbfba0b5bb7 100644
--- a/lisp/calculator.el
+++ b/lisp/calculator.el
@@ -746,7 +746,7 @@ 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) (> lh 0))))
+               (and bx (or (not lh) (> (if (listp lh) (cdr lh) lh) 0))))
              ;; if the mode line has an overline, use 3 lines
              (not (memq (face-attribute 'mode-line :overline)
                         '(nil unspecified)))))))