# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1153229172 0
# Node ID eaa3c19b94d29d22b6cba66b94eb36d35e792816
# Parent  a0c56d32ce9f28670c70a5ea7b5600f1a72ebfcb
(Fcheck_coding_system): Use xsignal1.  Remove loop.
(Fdefine_coding_system_internal): Use xsignal1.

diff -r a0c56d32ce9f -r eaa3c19b94d2 src/coding.c
--- a/src/coding.c	Tue Jul 18 13:26:05 2006 +0000
+++ b/src/coding.c	Tue Jul 18 13:26:12 2006 +0000
@@ -6072,7 +6072,7 @@
       /* As we are already in the work buffer, we must generate a new
 	 buffer for the work.  */
       Lisp_Object name;
-	
+
       name = Fgenerate_new_buffer_name (Vcode_conversion_workbuf_name, Qnil);
       buffer = buffer_to_kill = Fget_buffer_create (name);
       buf = XBUFFER (buffer);
@@ -6595,8 +6595,7 @@
     }
   if (!NILP (Fcoding_system_p (coding_system)))
     return coding_system;
-  while (1)
-    Fsignal (Qcoding_system_error, Fcons (coding_system, Qnil));
+  xsignal1 (Qcoding_system_error, coding_system);
 }
 
 Lisp_Object
@@ -7623,11 +7622,13 @@
   Lisp_Object safe_chars, slot;
 
   if (NILP (Fcheck_coding_system (coding_system)))
-    Fsignal (Qcoding_system_error, Fcons (coding_system, Qnil));
+    xsignal1 (Qcoding_system_error, coding_system);
+
   safe_chars = coding_safe_chars (coding_system);
   if (! EQ (safe_chars, Qt) && ! CHAR_TABLE_P (safe_chars))
     error ("No valid safe-chars property for %s",
 	   SDATA (SYMBOL_NAME (coding_system)));
+
   if (EQ (safe_chars, Qt))
     {
       if (NILP (Fmemq (coding_system, XCAR (Vcoding_system_safe_chars))))