Mercurial > hg > xemacs-beta

comparison src/syntax.c @ 159:3bb7ccffb0c0 r20-3b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b6
author cvs
date Mon, 13 Aug 2007 09:41:43 +0200
parents 821dec489c24
children 3d6bfa290dbd
comparison
equal deleted inserted replaced
158:558dfa75ffb3 159:3bb7ccffb0c0
270 */ 270 */
271 (ch, table)) 271 (ch, table))
272 { 272 {
273 struct Lisp_Char_Table *mirrortab; 273 struct Lisp_Char_Table *mirrortab;
274 274
275 if (NILP(ch))
276 {
277 return Qnil;
278 }
275 CHECK_CHAR_COERCE_INT (ch); 279 CHECK_CHAR_COERCE_INT (ch);
276 table = check_syntax_table (table, current_buffer->syntax_table); 280 table = check_syntax_table (table, current_buffer->syntax_table);
277 mirrortab = XCHAR_TABLE (XCHAR_TABLE (table)->mirror_table); 281 mirrortab = XCHAR_TABLE (XCHAR_TABLE (table)->mirror_table);
278 return make_char (syntax_code_spec[(int) SYNTAX (mirrortab, XCHAR (ch))]); 282 return make_char (syntax_code_spec[(int) SYNTAX (mirrortab, XCHAR (ch))]);
279 } 283 }