mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00
Code Issues Releases Activity

Fix treesit_traverse_get_predicate (bug#68954)

Browse Source 
Commit d005e685e1 should have used
assq_no_signal, but didn't, this commit fixes that.

* src/treesit.c (treesit_traverse_get_predicate): Replace assq_no_quit
with assq_no_signal.

Copyright-paperwork-exempt: yes
This commit is contained in:
Dominique Quatravaux 2024-02-08 10:19:10 +01:00 committed by Yuan Fu
parent b382135769
commit 4e5068b7b3
No known key found for this signature in database
GPG Key ID: 56E19BC57664A442
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/treesit.c
View File

@ -3275,11 +3275,11 @@ treesit_traverse_child_helper (TSTreeCursor *cursor,
static Lisp_Object
treesit_traverse_get_predicate (Lisp_Object thing, Lisp_Object language)
{
Lisp_Object cons = assq_no_quit (language, Vtreesit_thing_settings);
Lisp_Object cons = assq_no_signal (language, Vtreesit_thing_settings);
if (NILP (cons))
return Qnil;
Lisp_Object definitions = XCDR (cons);
Lisp_Object entry = assq_no_quit (thing, definitions);
Lisp_Object entry = assq_no_signal (thing, definitions);
if (NILP (entry))
return Qnil;
/* ENTRY looks like (THING PRED). */