diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-05-05 13:51:40 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-05-05 13:51:40 -0400 |
commit | 774b9a602e825a67746ab90cc42ac015e4a26da5 (patch) | |
tree | e5f920499238007e62e787d9c04a4bbb24785e18 | |
parent | 4ab9284288150721ba94b3a6e7d5b89dcacb8c53 (diff) | |
download | emacs-774b9a602e825a67746ab90cc42ac015e4a26da5.tar.gz |
* syntax.c (Fchar_syntax): Check the arg is a character.
Fixes: debbugs:6080
-rw-r--r-- | src/ChangeLog | 4 | ||||
-rw-r--r-- | src/syntax.c | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 20c6034f06d..2178f219cf8 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2010-05-05 Stefan Monnier <monnier@iro.umontreal.ca> + + * syntax.c (Fchar_syntax): Check the arg is a character (bug#6080). + 2010-05-05 Lawrence Mitchell <wence@gmx.li> * m/sparc.h: Fix typo in earlier change. diff --git a/src/syntax.c b/src/syntax.c index a80f047e43c..4741fa260d2 100644 --- a/src/syntax.c +++ b/src/syntax.c @@ -858,7 +858,7 @@ are listed in the documentation of `modify-syntax-entry'. */) Lisp_Object character; { int char_int; - CHECK_NUMBER (character); + CHECK_CHARACTER (character); char_int = XINT (character); SETUP_BUFFER_SYNTAX_TABLE (); return make_number (syntax_code_spec[(int) SYNTAX (char_int)]); |