Mercurial > emacs
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))))