diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2011-10-24 16:16:02 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2011-10-24 16:16:02 -0700 |
| commit | a14e15687ce2e0a02e27bf85f70b3d9c7dfdf850 (patch) | |
| tree | 06ca6d740c2230fde0f2cee7bed8b50b29729b14 /src/character.c | |
| parent | 0fd11aa5e26da5ee2b36996f1a2376fb2d7ec6cc (diff) | |
| download | emacs-a14e15687ce2e0a02e27bf85f70b3d9c7dfdf850.tar.gz | |
* character.c (Funibyte_string): Use CHECK_RANGED_INTEGER instead.
Diffstat (limited to 'src/character.c')
| -rw-r--r-- | src/character.c | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/src/character.c b/src/character.c index 1e8c75d2597..3517dbba47d 100644 --- 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); |