Mercurial > emacs
comparison src/syntax.c @ 108246:ea6ba19c6edd
* syntax.c (Fchar_syntax): Check the arg is a character.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 05 May 2010 13:51:40 -0400 |
| parents | 14ff9accfbd3 |
| children | 2bc9a0c04c87 |
comparison
equal
deleted
inserted
replaced
| 108245:5425ce334f51 | 108246:ea6ba19c6edd |
|---|---|
| 856 are listed in the documentation of `modify-syntax-entry'. */) | 856 are listed in the documentation of `modify-syntax-entry'. */) |
| 857 (character) | 857 (character) |
| 858 Lisp_Object character; | 858 Lisp_Object character; |
| 859 { | 859 { |
| 860 int char_int; | 860 int char_int; |
| 861 CHECK_NUMBER (character); | 861 CHECK_CHARACTER (character); |
| 862 char_int = XINT (character); | 862 char_int = XINT (character); |
| 863 SETUP_BUFFER_SYNTAX_TABLE (); | 863 SETUP_BUFFER_SYNTAX_TABLE (); |
| 864 return make_number (syntax_code_spec[(int) SYNTAX (char_int)]); | 864 return make_number (syntax_code_spec[(int) SYNTAX (char_int)]); |
| 865 } | 865 } |
| 866 | 866 |