>> Hmm... this does look awful 🙁
> Exactly. 💀

How 'bout a hack more like:

    (defvar auctex--extra-mode-parent
      '((LaTeX-mode . latex-mode)
        ...))

    (advice-add 'derived-mode-p :after-until #'auctex--compat-derived-mode-p)
    (defun auctex--compat-derived-mode-p (&rest modes)
      (let ((extra-parent (assq major-mode auctex--extra-mode-parent)))
        (and extra-parent (memq (cdr extra-parent) modes))))

?

        Stefan


Reply via email to