>From 54cd9fe40d954231a6be822d9ea448902e12c60c Mon Sep 17 00:00:00 2001 From: john muhl Date: Wed, 28 Jun 2023 12:58:27 -0500 Subject: [PATCH] * lisp/calculator.el (calculator-need-3-lines): Check type 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 bf2ac9b6215..6af6464d2f4 100644 --- a/lisp/calculator.el +++ b/lisp/calculator.el @@ -746,7 +746,7 @@ calculator-need-3-lines ;; 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))))))) -- 2.41.0