Mercurial > emacs

comparison src/coding.c @ 51186:e610d367508d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 }