(yas--all-parents): Obey derived-mode-extra-parents (Issue #1193)

This commit is contained in:
Stefan Monnier 2024-02-15 14:09:24 -05:00
parent 8e9ce76f7a
commit 1ec7e3b6f7

View File

@ -854,6 +854,7 @@ which decides on the snippet to expand.")
'fundamental-mode) 'fundamental-mode)
,(let ((alias (symbol-function mode))) ,(let ((alias (symbol-function mode)))
(when (symbolp alias) alias)) (when (symbolp alias) alias))
,@(get mode 'derived-mode-extra-parents)
,@(gethash mode yas--parents))))))))) ,@(gethash mode yas--parents)))))))))
(dolist (parent all-parents) (dolist (parent all-parents)
(cl-pushnew mode (get parent 'yas--cached-children))) (cl-pushnew mode (get parent 'yas--cached-children)))