diff options
author | Eli Zaretskii <eliz@gnu.org> | 2023-06-29 21:21:28 +0300 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2023-06-29 21:21:28 +0300 |
commit | 65f146cf1c275cfce2265a5911c6460374ef153b (patch) | |
tree | aa3c09e7b85b6cffad464fb23831fd73bf3c2017 /lisp | |
parent | 9e8386bdacc890390bb90f69889117667019c979 (diff) | |
download | emacs-65f146cf1c275cfce2265a5911c6460374ef153b.tar.gz |
; * lisp/calculator.el (calculator-need-3-lines): Fix last change.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/calculator.el | 3 |
1 files changed, 2 insertions, 1 deletions
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))))))) |