diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/editfns.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/editfns.c b/src/editfns.c index 1630888f446..e1a706de435 100644 --- a/src/editfns.c +++ b/src/editfns.c | |||
| @@ -458,6 +458,7 @@ is in effect, in which case it is less.") | |||
| 458 | DEFUN ("position-bytes", Fposition_bytes, Sposition_bytes, 1, 1, 0, | 458 | DEFUN ("position-bytes", Fposition_bytes, Sposition_bytes, 1, 1, 0, |
| 459 | "Return the byte position for character position POSITION.") | 459 | "Return the byte position for character position POSITION.") |
| 460 | (position) | 460 | (position) |
| 461 | Lisp_Object position; | ||
| 461 | { | 462 | { |
| 462 | CHECK_NUMBER_COERCE_MARKER (position, 1); | 463 | CHECK_NUMBER_COERCE_MARKER (position, 1); |
| 463 | return make_number (CHAR_TO_BYTE (XINT (position))); | 464 | return make_number (CHAR_TO_BYTE (XINT (position))); |