Function: TeX--compat-provided-mode-derived-p

TeX--compat-provided-mode-derived-p is a byte-compiled function defined in tex.el.

Signature

(TeX--compat-provided-mode-derived-p MODE &rest MODES)

Documentation

Add pseudo-parents facility to provided-mode-derived-p like Emacs 30.

Modes registered in derived-mode-extra-parents property of MODE symbol are regarded as parent modes by provided-mode-derived-p, when MODE is one of the AUCTeX new mode names.

Source Code

;; Defined in ~/.emacs.d/elpa/auctex-14.1.2/tex.el
;; COMPATIBILITY for Emacs<30
(unless (fboundp 'derived-mode-add-parents)
  (advice-add 'provided-mode-derived-p :after-until
              ;; Don't quote by #'-style to avoid compiler warning.
              'TeX--compat-provided-mode-derived-p)
  (defun TeX--compat-provided-mode-derived-p (mode &rest modes)
    "Add pseudo-parents facility to `provided-mode-derived-p' like Emacs 30.
Modes registered in `derived-mode-extra-parents' property of MODE
symbol are regarded as parent modes by `provided-mode-derived-p',
when MODE is one of the AUCTeX new mode names."
    (when (rassq mode TeX-mode-comparison-alist)
      (let ((extra-parents (get mode 'derived-mode-extra-parents)))
        (and extra-parents
             (cl-loop for parent in extra-parents
                      thereis (memq parent modes)))))))