diff options
| author | Kim F. Storm <storm@cua.dk> | 2006-07-18 13:26:12 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2006-07-18 13:26:12 +0000 |
| commit | fcad4ec4e9dac00dcdaf4efae85f8a7757a53f64 (patch) | |
| tree | af4deb3dd9fb0fae9e18c441327c04f699fc6ac0 /src/coding.c | |
| parent | aaf769f15ad643ec47eb2540f8f970ac1065dd78 (diff) | |
| download | emacs-fcad4ec4e9dac00dcdaf4efae85f8a7757a53f64.tar.gz | |
(Fcheck_coding_system): Use xsignal1. Remove loop.
(Fdefine_coding_system_internal): Use xsignal1.
Diffstat (limited to 'src/coding.c')
| -rw-r--r-- | src/coding.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/coding.c b/src/coding.c index be39ceb7fe6..a3fd8f91284 100644 --- a/src/coding.c +++ b/src/coding.c @@ -6072,7 +6072,7 @@ set_conversion_work_buffer (multibyte) /* 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 @@ The value of this property should be a vector of length 5. */) } 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 @@ This function is internal use only. */) 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)))) |