Mercurial > emacs
comparison src/editfns.c @ 20879:64d2baa47498
(Fposition_bytes): Declare arg POSITION as Lips_Object.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Tue, 10 Feb 1998 03:59:06 +0000 |
parents | 34e0c8eb49eb |
children | 896aeeb4f735 |
comparison
equal
deleted
inserted
replaced
20878:34e0c8eb49eb | 20879:64d2baa47498 |
---|---|
456 } | 456 } |
457 | 457 |
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))); |
464 } | 465 } |
465 | 466 |