diff options
| author | Stefan Monnier | 2026-03-08 23:26:58 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2026-03-10 00:13:31 -0400 |
| commit | ea5f15d09642435ecb645fc5dc7b84cc047ba8e6 (patch) | |
| tree | d007e08c463aaa3a9743ad81c567f760f0e1db8d /src | |
| parent | 3118a8c8b1a8d1a77de80da4b03c51c199c202f8 (diff) | |
| download | emacs-ea5f15d09642435ecb645fc5dc7b84cc047ba8e6.tar.gz emacs-ea5f15d09642435ecb645fc5dc7b84cc047ba8e6.zip | |
Fix `signal` calls where the data argument is not a list
* test/src/thread-tests.el (threads-join-error):
* test/src/emacs-module-resources/mod-test.c (Fmod_test_signal):
* src/print.c (print_bind_overrides):
* lisp/url/url-future.el (url-future-finish, url-future-errored)
(url-future-call, url-future-cancel): Make sure signal's data is a list.
* test/src/emacs-module-tests.el (mod-test-non-local-exit-signal-test):
Adjust accordingly.
Diffstat (limited to 'src')
| -rw-r--r-- | src/print.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/print.c b/src/print.c index 17e271967cb..ef09b5fbc38 100644 --- a/src/print.c +++ b/src/print.c | |||
| @@ -708,7 +708,7 @@ print_bind_overrides (Lisp_Object overrides) | |||
| 708 | if (EQ (overrides, Qt)) | 708 | if (EQ (overrides, Qt)) |
| 709 | print_bind_all_defaults (); | 709 | print_bind_all_defaults (); |
| 710 | else if (!CONSP (overrides)) | 710 | else if (!CONSP (overrides)) |
| 711 | xsignal (Qwrong_type_argument, Qconsp); | 711 | xsignal2 (Qwrong_type_argument, Qconsp, overrides); |
| 712 | else | 712 | else |
| 713 | { | 713 | { |
| 714 | while (!NILP (overrides)) | 714 | while (!NILP (overrides)) |
| @@ -717,7 +717,7 @@ print_bind_overrides (Lisp_Object overrides) | |||
| 717 | if (EQ (setting, Qt)) | 717 | if (EQ (setting, Qt)) |
| 718 | print_bind_all_defaults (); | 718 | print_bind_all_defaults (); |
| 719 | else if (!CONSP (setting)) | 719 | else if (!CONSP (setting)) |
| 720 | xsignal (Qwrong_type_argument, Qconsp); | 720 | xsignal2 (Qwrong_type_argument, Qconsp, setting); |
| 721 | else | 721 | else |
| 722 | { | 722 | { |
| 723 | Lisp_Object key = XCAR (setting), | 723 | Lisp_Object key = XCAR (setting), |
| @@ -729,7 +729,7 @@ print_bind_overrides (Lisp_Object overrides) | |||
| 729 | } | 729 | } |
| 730 | 730 | ||
| 731 | if (!NILP (XCDR (overrides)) && !CONSP (XCDR (overrides))) | 731 | if (!NILP (XCDR (overrides)) && !CONSP (XCDR (overrides))) |
| 732 | xsignal (Qwrong_type_argument, Qconsp); | 732 | xsignal2 (Qwrong_type_argument, Qconsp, overrides); |
| 733 | overrides = XCDR (overrides); | 733 | overrides = XCDR (overrides); |
| 734 | } | 734 | } |
| 735 | } | 735 | } |