[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-29 65f146cf1c2 2/3: ; * lisp/calculator.el (calculator-need-3-line
From: |
Eli Zaretskii |
Subject: |
emacs-29 65f146cf1c2 2/3: ; * lisp/calculator.el (calculator-need-3-lines): Fix last change. |
Date: |
Thu, 29 Jun 2023 14:22:50 -0400 (EDT) |
branch: emacs-29
commit 65f146cf1c275cfce2265a5911c6460374ef153b
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>
; * lisp/calculator.el (calculator-need-3-lines): Fix last change.
---
lisp/calculator.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
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)))))))