Mercurial > hg > xemacs-beta

comparison src/syntax.c @ 404:2f8bb876ab1d r21-2-32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-32
author cvs
date Mon, 13 Aug 2007 11:16:07 +0200
parents 74fd4e045ea6
children 697ef44129c6
comparison
equal deleted inserted replaced
403:9f011ab08d48 404:2f8bb876ab1d
293 #endif 293 #endif
294 294
295 Lisp_Object 295 Lisp_Object
296 syntax_match (Lisp_Object table, Emchar ch) 296 syntax_match (Lisp_Object table, Emchar ch)
297 { 297 {
298 Lisp_Object code = CHAR_TABLE_VALUE_UNSAFE (XCHAR_TABLE (table), ch); 298 Lisp_Object code = XCHAR_TABLE_VALUE_UNSAFE (table, ch);
299 Lisp_Object code2 = code; 299 Lisp_Object code2 = code;
300 300
301 if (CONSP (code)) 301 if (CONSP (code))
302 code2 = XCAR (code); 302 code2 = XCAR (code);
303 if (SYNTAX_FROM_CODE (XINT (code2)) == Sinherit) 303 if (SYNTAX_FROM_CODE (XINT (code2)) == Sinherit)
304 code = CHAR_TABLE_VALUE_UNSAFE (XCHAR_TABLE (Vstandard_syntax_table), 304 code = XCHAR_TABLE_VALUE_UNSAFE (Vstandard_syntax_table, ch);
305 ch);
306 305
307 return CONSP (code) ? XCDR (code) : Qnil; 306 return CONSP (code) ? XCDR (code) : Qnil;
308 } 307 }
309 308
310 DEFUN ("matching-paren", Fmatching_paren, 1, 2, 0, /* 309 DEFUN ("matching-paren", Fmatching_paren, 1, 2, 0, /*