diff options
Diffstat (limited to 'src/buffer.h')
| -rw-r--r-- | src/buffer.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/buffer.h b/src/buffer.h index 85b5631736f..c97e3d8fa51 100644 --- a/src/buffer.h +++ b/src/buffer.h | |||
| @@ -295,7 +295,7 @@ extern void enlarge_buffer_text (struct buffer *, ptrdiff_t); | |||
| 295 | do \ | 295 | do \ |
| 296 | { \ | 296 | { \ |
| 297 | Lisp_Object __pos = (pos); \ | 297 | Lisp_Object __pos = (pos); \ |
| 298 | if (NUMBERP (__pos)) \ | 298 | if (FIXED_OR_FLOATP (__pos)) \ |
| 299 | { \ | 299 | { \ |
| 300 | charpos = __pos; \ | 300 | charpos = __pos; \ |
| 301 | bytepos = buf_charpos_to_bytepos (current_buffer, __pos); \ | 301 | bytepos = buf_charpos_to_bytepos (current_buffer, __pos); \ |
| @@ -1387,7 +1387,7 @@ downcase (int c) | |||
| 1387 | { | 1387 | { |
| 1388 | Lisp_Object downcase_table = BVAR (current_buffer, downcase_table); | 1388 | Lisp_Object downcase_table = BVAR (current_buffer, downcase_table); |
| 1389 | Lisp_Object down = CHAR_TABLE_REF (downcase_table, c); | 1389 | Lisp_Object down = CHAR_TABLE_REF (downcase_table, c); |
| 1390 | return NATNUMP (down) ? XFASTINT (down) : c; | 1390 | return FIXNATP (down) ? XFASTINT (down) : c; |
| 1391 | } | 1391 | } |
| 1392 | 1392 | ||
| 1393 | /* Upcase a character C, or make no change if that cannot be done. */ | 1393 | /* Upcase a character C, or make no change if that cannot be done. */ |
| @@ -1396,7 +1396,7 @@ upcase (int c) | |||
| 1396 | { | 1396 | { |
| 1397 | Lisp_Object upcase_table = BVAR (current_buffer, upcase_table); | 1397 | Lisp_Object upcase_table = BVAR (current_buffer, upcase_table); |
| 1398 | Lisp_Object up = CHAR_TABLE_REF (upcase_table, c); | 1398 | Lisp_Object up = CHAR_TABLE_REF (upcase_table, c); |
| 1399 | return NATNUMP (up) ? XFASTINT (up) : c; | 1399 | return FIXNATP (up) ? XFASTINT (up) : c; |
| 1400 | } | 1400 | } |
| 1401 | 1401 | ||
| 1402 | /* True if C is upper case. */ | 1402 | /* True if C is upper case. */ |