* character.c (Funibyte_string): Use CHECK_RANGED_INTEGER instead.

diff --git a/src/ChangeLog b/src/ChangeLog
index 5b41db9831ae7f95c950cadb27dbd2587e7069b8..46c22caeea9579e95a93393d448797b99b92974c 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -106,7 +106,7 @@
        (str_as_unibyte, str_to_unibyte, string_count_byte8)
        (string_escape_byte8, Fget_byte):
        Use ptrdiff_t, not EMACS_INT, where ptrdiff_t is wide enough.
-       (Funibyte_string): Use CHECK_CHARACTER, not CHECK_NATNUM, to
+       (Funibyte_string): Use CHECK_RANGED_INTEGER, not CHECK_NATNUM, to
        avoid mishandling large integers.
        * character.h: Adjust decls to match defn changes elsewhere.
        * charset.c (load_charset_map_from_file, find_charsets_in_text)

diff --git a/src/character.c b/src/character.c
index 1e8c75d2597b382c3568a275ffda34047d7e380a..3517dbba47d12b19208cff3711554ae144af0f99 100644 (file)
--- a/src/character.c
+++ b/src/character.c
@@ -924,7 +924,6 @@ usage: (unibyte-string &rest BYTES)  */)
   (ptrdiff_t n, Lisp_Object *args)
 {
   ptrdiff_t i;
-  int c;
   unsigned char *buf, *p;
   Lisp_Object str;
   USE_SAFE_ALLOCA;
@@ -934,11 +933,8 @@ usage: (unibyte-string &rest BYTES)  */)
 
   for (i = 0; i < n; i++)
     {
-      CHECK_CHARACTER (args[i]);
-      c = XFASTINT (args[i]);
-      if (c >= 256)
-       args_out_of_range_3 (args[i], make_number (0), make_number (255));
-      *p++ = c;
+      CHECK_RANGED_INTEGER (0, args[i], 255);
+      *p++ = XINT (args[i]);
     }
 
   str = make_string_from_bytes ((char *) buf, n, p - buf);