diff options
| author | john muhl <jm@pub.pink> | 2023-06-28 12:58:27 -0500 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2023-06-29 21:18:30 +0300 |
| commit | 9e8386bdacc890390bb90f69889117667019c979 (patch) | |
| tree | 3abcb577bebcdf3283f00f4b390ec70fac4a313d /lisp/calculator.el | |
| parent | ddbb11f56572025d90497291de1dcaf2ece45500 (diff) | |
| download | emacs-9e8386bdacc890390bb90f69889117667019c979.tar.gz emacs-9e8386bdacc890390bb90f69889117667019c979.tar.bz2 emacs-9e8386bdacc890390bb90f69889117667019c979.zip | |
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
Diffstat (limited to 'lisp/calculator.el')
| -rw-r--r-- | lisp/calculator.el | 2 |
1 files changed, 1 insertions, 1 deletions
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))))))) |