Mercurial > hg > xemacs-beta

comparison src/syntax.c @ 195:a2f645c6b9f8 r20-3b24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b24
author cvs
date Mon, 13 Aug 2007 09:59:05 +0200
parents 3d6bfa290dbd
children c5d627a313b1
comparison
equal deleted inserted replaced
194:2947057885e5 195:a2f645c6b9f8
272 { 272 {
273 struct Lisp_Char_Table *mirrortab; 273 struct Lisp_Char_Table *mirrortab;
274 274
275 if (NILP(ch)) 275 if (NILP(ch))
276 { 276 {
277 return Qnil; 277 ch = make_char('\000');
278 } 278 }
279 CHECK_CHAR_COERCE_INT (ch); 279 CHECK_CHAR_COERCE_INT (ch);
280 table = check_syntax_table (table, current_buffer->syntax_table); 280 table = check_syntax_table (table, current_buffer->syntax_table);
281 mirrortab = XCHAR_TABLE (XCHAR_TABLE (table)->mirror_table); 281 mirrortab = XCHAR_TABLE (XCHAR_TABLE (table)->mirror_table);
282 return make_char (syntax_code_spec[(int) SYNTAX (mirrortab, XCHAR (ch))]); 282 return make_char (syntax_code_spec[(int) SYNTAX (mirrortab, XCHAR (ch))]);