Mercurial > emacs
comparison src/coding.c @ 90533:8a8e69664178
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 343-356)
- Update from CVS
- Update for ERC 5.1.3.
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 113-115)
- Merge from emacs--devo--0
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-90
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 19 Jul 2006 00:42:56 +0000 |
| parents | 0608690171d1 eaa3c19b94d2 |
| children | 858cb33ae39d |
comparison
equal
deleted
inserted
replaced
| 90532:e22cf6d2400c | 90533:8a8e69664178 |
|---|---|
| 7168 Fput (coding_system, Qcoding_system_define_form, Qnil); | 7168 Fput (coding_system, Qcoding_system_define_form, Qnil); |
| 7169 safe_eval (define_form); | 7169 safe_eval (define_form); |
| 7170 } | 7170 } |
| 7171 if (!NILP (Fcoding_system_p (coding_system))) | 7171 if (!NILP (Fcoding_system_p (coding_system))) |
| 7172 return coding_system; | 7172 return coding_system; |
| 7173 while (1) | 7173 xsignal1 (Qcoding_system_error, coding_system); |
| 7174 Fsignal (Qcoding_system_error, Fcons (coding_system, Qnil)); | |
| 7175 } | 7174 } |
| 7176 | 7175 |
| 7177 | 7176 |
| 7178 /* Detect how the bytes at SRC of length SRC_BYTES are encoded. If | 7177 /* Detect how the bytes at SRC of length SRC_BYTES are encoded. If |
| 7179 HIGHEST is nonzero, return the coding system of the highest | 7178 HIGHEST is nonzero, return the coding system of the highest |