aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorStefan Monnier2026-03-08 23:26:58 -0400
committerStefan Monnier2026-03-10 00:13:31 -0400
commitea5f15d09642435ecb645fc5dc7b84cc047ba8e6 (patch)
treed007e08c463aaa3a9743ad81c567f760f0e1db8d /src
parent3118a8c8b1a8d1a77de80da4b03c51c199c202f8 (diff)
downloademacs-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.c6
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 }