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