changeset 71972:eaa3c19b94d2

(Fcheck_coding_system): Use xsignal1. Remove loop. (Fdefine_coding_system_internal): Use xsignal1.
author Kim F. Storm <storm@cua.dk>
date Tue, 18 Jul 2006 13:26:12 +0000
parents a0c56d32ce9f
children 7febc7ff0f0d
files src/coding.c
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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))))