mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 23:31:55 -08:00
Code Issues Projects Releases Wiki Activity

; Fix the doc strings of 2 treesit.el functions

Browse source 
* lisp/treesit.el (treesit-parent-until, treesit-parent-while):
Doc fixes.  (Bug#60531)
This commit is contained in:
Eli Zaretskii 2023-01-05 09:20:02 +02:00
parent 83ce7c861e
commit 3fc6883351
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/treesit.el
View file

@ -303,8 +303,8 @@ properties."
"Return the closest parent of NODE that satisfies PRED.
Return nil if none was found. PRED should be a function that
takes one argument, the parent node, and return non-nil/nil for
match/no match.
takes one argument, the node to examine, and returns a boolean
value indicating whether that node is a match.
If INCLUDE-NODE is non-nil, return NODE if it satisfies PRED."
(let ((node (if include-node node
@ -316,7 +316,8 @@ If INCLUDE-NODE is non-nil, return NODE if it satisfies PRED."
(defun treesit-parent-while (node pred)
"Return the furthest parent of NODE that satisfies PRED.
Return nil if none was found. PRED should be a function that
takes one argument, the parent node."
takes one argument, the node to examine, and returns a boolean
value indicating whether that node is a match."
(let ((last nil))
(while (and node (funcall pred node))
(setq last node