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 c97e3d8fa51..c6247506d7a 100644 --- a/src/buffer.h +++ b/src/buffer.h | |||
| @@ -1349,7 +1349,7 @@ extern int last_per_buffer_idx; | |||
| 1349 | 1349 | ||
| 1350 | 1350 | ||
| 1351 | #define PER_BUFFER_IDX(OFFSET) \ | 1351 | #define PER_BUFFER_IDX(OFFSET) \ |
| 1352 | XINT (*(Lisp_Object *)((OFFSET) + (char *) &buffer_local_flags)) | 1352 | XFIXNUM (*(Lisp_Object *)((OFFSET) + (char *) &buffer_local_flags)) |
| 1353 | 1353 | ||
| 1354 | /* Functions to get and set default value of the per-buffer | 1354 | /* Functions to get and set default value of the per-buffer |
| 1355 | variable at offset OFFSET in the buffer structure. */ | 1355 | variable at offset OFFSET in the buffer structure. */ |
| @@ -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 FIXNATP (down) ? XFASTINT (down) : c; | 1390 | return FIXNATP (down) ? XFIXNAT (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 FIXNATP (up) ? XFASTINT (up) : c; | 1399 | return FIXNATP (up) ? XFIXNAT (up) : c; |
| 1400 | } | 1400 | } |
| 1401 | 1401 | ||
| 1402 | /* True if C is upper case. */ | 1402 | /* True if C is upper case. */ |