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

Support cons cell as value of ':line-width' box attribute

Browse source 
* 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
This commit is contained in:
john muhl 2023-06-28 12:58:27 -05:00 • committed by Eli Zaretskii
parent ddbb11f565
commit 9e8386bdac
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/calculator.el
View file

@ -746,7 +746,7 @@ See the documentation for `calculator-mode' for more information."
;; use 3 lines ;; use 3 lines
(let* ((bx (face-attribute 'mode-line :box)) (let* ((bx (face-attribute 'mode-line :box))
(lh (plist-get bx :line-width))) (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 ;; if the mode line has an overline, use 3 lines
(not (memq (face-attribute 'mode-line :overline) (not (memq (face-attribute 'mode-line :overline)
'(nil unspecified))))))) '(nil unspecified)))))))