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 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. */