Mercurial > emacs
comparison src/coding.c @ 51186:e610d367508d
(find_safe_codings): Fix last change.
author | Andreas Schwab <schwab@suse.de> |
---|---|
date | Sat, 24 May 2003 20:11:55 +0000 |
parents | 94d903190cee |
children | b020f1a52615 |
comparison
equal
deleted
inserted
replaced
51185:79ec3bcd1a81 | 51186:e610d367508d |
---|---|
1 /* Coding system handler (conversion, detection, and etc). | 1 /* Coding system handler (conversion, detection, and etc). |
2 Copyright (C) 1995, 1997, 1998, 2002 Electrotechnical Laboratory, JAPAN. | 2 Copyright (C) 1995, 1997, 1998, 2002 Electrotechnical Laboratory, JAPAN. |
3 Licensed to the Free Software Foundation. | 3 Licensed to the Free Software Foundation. |
4 Copyright (C) 2001,2002 Free Software Foundation, Inc. | 4 Copyright (C) 2001,2002,2003 Free Software Foundation, Inc. |
5 | 5 |
6 This file is part of GNU Emacs. | 6 This file is part of GNU Emacs. |
7 | 7 |
8 GNU Emacs is free software; you can redistribute it and/or modify | 8 GNU Emacs is free software; you can redistribute it and/or modify |
9 it under the terms of the GNU General Public License as published by | 9 it under the terms of the GNU General Public License as published by |
6502 ? XCHAR_TABLE (translation_table)->extras[1] | 6502 ? XCHAR_TABLE (translation_table)->extras[1] |
6503 : Qnil); | 6503 : Qnil); |
6504 accept_latin_extra | 6504 accept_latin_extra |
6505 = ((EQ (AREF (val, 0), make_number (2)) | 6505 = ((EQ (AREF (val, 0), make_number (2)) |
6506 && VECTORP (AREF (val, 4))) | 6506 && VECTORP (AREF (val, 4))) |
6507 ? AREF (AREF (val, 4), CODING_FLAG_ISO_LATIN_EXTRA) | 6507 ? AREF (AREF (val, 4), 16) |
6508 : Qnil); | 6508 : Qnil); |
6509 XSETCAR (tail, list5 (XCAR (elt), XCDR (elt), | 6509 XSETCAR (tail, list5 (XCAR (elt), XCDR (elt), |
6510 translation_table, hash_table, | 6510 translation_table, hash_table, |
6511 accept_latin_extra)); | 6511 accept_latin_extra)); |
6512 } | 6512 } |