答案1
由于没有干净的扩展挂钩或自定义选项,我最终建议使用内部函数:
(defun my-org-latex-preview-advice (beg end &rest _args)
(let* ((ov (car (overlays-in beg end)))
(img (cdr (overlay-get ov 'display)))
(new-img (plist-put img :ascent 90)))
(overlay-put ov 'display (cons 'image new-img))))
(advice-add #'org--format-latex-make-overlay
:after #'my-org-latex-preview-advice)
虽然不太好,但是它可以完成工作。