procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; * lisp/calculator.el (calculator-need-3-lines): Fix last change.

Browse source
This commit is contained in:
Eli Zaretskii 2023-06-29 21:21:28 +03:00
parent 9e8386bdac
commit 65f146cf1c
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/calculator.el
View file

@ -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)))))))