aboutsummaryrefslogtreecommitdiffstats
path: root/src/buffer.h
diff options
context:
space:
mode:
Diffstat (limited to 'src/buffer.h')
-rw-r--r--src/buffer.h6
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. */