procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Detect DEFUNs as outline-minor-mode headings in Emacs sources in c-ts-mode.

Browse source 
* lisp/progmodes/c-ts-mode.el (c-ts-mode--outline-predicate): When
c-ts-mode-emacs-sources-support is t, use c-ts-mode--emacs-defun-p
(bug#68824).
This commit is contained in:
Juri Linkov 2024-02-14 09:20:48 +02:00
parent b54db9c9ac
commit fa74c7f88a
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/progmodes/c-ts-mode.el
View file

@ -926,12 +926,12 @@ Return nil if NODE is not a defun node or doesn't have a name."
(defun c-ts-mode--outline-predicate (node)
"Match outlines on lines with function names."
(and (treesit-node-match-p
node "\\`function_declarator\\'" t)
(when-let ((parent (treesit-node-parent node)))
(treesit-node-match-p
parent
"\\`function_definition\\'" t))))
(or (and (equal (treesit-node-type node) "function_declarator")
(equal (treesit-node-type (treesit-node-parent node))
"function_definition"))
;; DEFUNs in Emacs sources.
(and c-ts-mode-emacs-sources-support
(c-ts-mode--emacs-defun-p node))))
;;; Defun navigation