branch: externals/org-modern
commit ab52b6d728a5123b4a5aa55fe3340cf42981a362
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Check that org-modern-label-border is an integer
---
org-modern.el | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/org-modern.el b/org-modern.el
index 259baf33a7..81c53ebaae 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -674,14 +674,14 @@ whole buffer; otherwise, for the line at point."
'org-modern-label nil
:box
(when org-modern-label-border
- (let ((border (if (eq org-modern-label-border 'auto)
- (max 2 (cond
- ((integerp line-spacing)
- line-spacing)
- ((floatp line-spacing)
- (ceiling (* line-spacing (frame-char-height))))
- (t (/ (frame-char-height) 10))))
- org-modern-label-border)))
+ (let ((border (if (integerp org-modern-label-border)
+ org-modern-label-border
+ (max 2 (cond
+ ((integerp line-spacing)
+ line-spacing)
+ ((floatp line-spacing)
+ (ceiling (* line-spacing (frame-char-height))))
+ (t (/ (frame-char-height) 10)))))))
(list :color (face-attribute 'default :background nil t)
:line-width (cons -1 (- border)))))))
