summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2010-05-05 13:51:40 -0400
committerStefan Monnier <monnier@iro.umontreal.ca>2010-05-05 13:51:40 -0400
commit774b9a602e825a67746ab90cc42ac015e4a26da5 (patch)
treee5f920499238007e62e787d9c04a4bbb24785e18
parent4ab9284288150721ba94b3a6e7d5b89dcacb8c53 (diff)
downloademacs-774b9a602e825a67746ab90cc42ac015e4a26da5.tar.gz
* syntax.c (Fchar_syntax): Check the arg is a character.
Fixes: debbugs:6080
-rw-r--r--src/ChangeLog4
-rw-r--r--src/syntax.c2
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)]);