diff options
| author | Dominique Quatravaux | 2024-02-08 10:19:10 +0100 |
|---|---|---|
| committer | Yuan Fu | 2024-02-08 21:25:34 -0800 |
| commit | 4e5068b7b3a06aaba6b93dff759a93b385ab8fd0 (patch) | |
| tree | 93bc408030994ee977ac1ff00e0264dbf721de0c /src | |
| parent | b3821357696d44e3f553af14c209a21e69187c32 (diff) | |
| download | emacs-4e5068b7b3a06aaba6b93dff759a93b385ab8fd0.tar.gz emacs-4e5068b7b3a06aaba6b93dff759a93b385ab8fd0.zip | |
Fix treesit_traverse_get_predicate (bug#68954)
Commit d005e685e1df7692085378633348db39a5190374 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
Diffstat (limited to 'src')
| -rw-r--r-- | src/treesit.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/treesit.c b/src/treesit.c index 12915ea9a10..d86ab501187 100644 --- a/src/treesit.c +++ b/src/treesit.c | |||
| @@ -3275,11 +3275,11 @@ treesit_traverse_child_helper (TSTreeCursor *cursor, | |||
| 3275 | static Lisp_Object | 3275 | static Lisp_Object |
| 3276 | treesit_traverse_get_predicate (Lisp_Object thing, Lisp_Object language) | 3276 | treesit_traverse_get_predicate (Lisp_Object thing, Lisp_Object language) |
| 3277 | { | 3277 | { |
| 3278 | Lisp_Object cons = assq_no_quit (language, Vtreesit_thing_settings); | 3278 | Lisp_Object cons = assq_no_signal (language, Vtreesit_thing_settings); |
| 3279 | if (NILP (cons)) | 3279 | if (NILP (cons)) |
| 3280 | return Qnil; | 3280 | return Qnil; |
| 3281 | Lisp_Object definitions = XCDR (cons); | 3281 | Lisp_Object definitions = XCDR (cons); |
| 3282 | Lisp_Object entry = assq_no_quit (thing, definitions); | 3282 | Lisp_Object entry = assq_no_signal (thing, definitions); |
| 3283 | if (NILP (entry)) | 3283 | if (NILP (entry)) |
| 3284 | return Qnil; | 3284 | return Qnil; |
| 3285 | /* ENTRY looks like (THING PRED). */ | 3285 | /* ENTRY looks like (THING PRED). */ |