Function: org-modern--pre-redisplay

org-modern--pre-redisplay is a natively compiled function defined in org-modern.el.

Signature

(org-modern--pre-redisplay _)

Documentation

Compute font parameters before redisplay.

Source Code

;; Defined in /nix/store/0fwir9vccqq0yiqnswyf22ip3sl68f49-emacs-packages-deps/share/emacs/site-lisp/elpa/org-modern-20260722.1411/org-modern.el
(defun org-modern--pre-redisplay (_)
  "Compute font parameters before redisplay."
  (when-let* ((box (and org-modern-label-border
                        (face-attribute 'org-modern-label :box nil t))))
    (unless (equal (and (listp box) (plist-get box :color))
                   (face-attribute 'default :background nil t))
      (org-modern--update-faces)))
  (let ((face-remapping-alist
         `((default org-table
            ,@(or (ensure-list (cdr (assq 'default face-remapping-alist)))
                  '(default)))
           ,@face-remapping-alist)))
    (setq org-modern--table-sp-width (default-font-width)))
  (setf (cadr org-modern--table-overline) (face-attribute 'org-table :foreground nil t)))