branch: externals/org-modern
commit 0798c12bb7e4d8adbeb79605683fc51f1c5a4f2e
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Better face-remapping-alist when computing table divider
---
org-modern.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/org-modern.el b/org-modern.el
index 9bfd78fcc6..09d6ff9458 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -661,9 +661,9 @@ whole buffer; otherwise, for the line at point."
(face-attribute 'default :background nil t))
(org-modern--update-label-face)))
(let ((face-remapping-alist
- (if-let (h (cadr (assq :height (assq 'default face-remapping-alist))))
- `((default (:inherit org-table :height ,h)))
- '((default (:inherit org-table))))))
+ (if-let ((d (cdr (assq 'default face-remapping-alist))))
+ `((default org-table ,@d default))
+ '((default org-table default)))))
(setq org-modern--table-sp-width (default-font-width)))
(setf (cadr org-modern--table-overline) (face-attribute 'org-table
:foreground nil t)))
