434 |
register Lisp_Object marker; |
register Lisp_Object marker; |
435 |
{ |
{ |
436 |
register Lisp_Object buf; |
register Lisp_Object buf; |
437 |
CHECK_MARKER (marker, 0); |
CHECK_MARKER (marker); |
438 |
if (XMARKER (marker)->buffer) |
if (XMARKER (marker)->buffer) |
439 |
{ |
{ |
440 |
XSETBUFFER (buf, XMARKER (marker)->buffer); |
XSETBUFFER (buf, XMARKER (marker)->buffer); |
450 |
(marker) |
(marker) |
451 |
Lisp_Object marker; |
Lisp_Object marker; |
452 |
{ |
{ |
453 |
CHECK_MARKER (marker, 0); |
CHECK_MARKER (marker); |
454 |
if (XMARKER (marker)->buffer) |
if (XMARKER (marker)->buffer) |
455 |
return make_number (XMARKER (marker)->charpos); |
return make_number (XMARKER (marker)->charpos); |
456 |
|
|
470 |
register struct buffer *b; |
register struct buffer *b; |
471 |
register struct Lisp_Marker *m; |
register struct Lisp_Marker *m; |
472 |
|
|
473 |
CHECK_MARKER (marker, 0); |
CHECK_MARKER (marker); |
474 |
/* If position is nil or a marker that points nowhere, |
/* If position is nil or a marker that points nowhere, |
475 |
make this marker point nowhere. */ |
make this marker point nowhere. */ |
476 |
if (NILP (position) |
if (NILP (position) |
484 |
b = current_buffer; |
b = current_buffer; |
485 |
else |
else |
486 |
{ |
{ |
487 |
CHECK_BUFFER (buffer, 1); |
CHECK_BUFFER (buffer); |
488 |
b = XBUFFER (buffer); |
b = XBUFFER (buffer); |
489 |
/* If buffer is dead, set marker to point nowhere. */ |
/* If buffer is dead, set marker to point nowhere. */ |
490 |
if (EQ (b->name, Qnil)) |
if (EQ (b->name, Qnil)) |
506 |
return marker; |
return marker; |
507 |
} |
} |
508 |
|
|
509 |
CHECK_NUMBER_COERCE_MARKER (position, 1); |
CHECK_NUMBER_COERCE_MARKER (position); |
510 |
|
|
511 |
charno = XINT (position); |
charno = XINT (position); |
512 |
|
|
546 |
register struct buffer *b; |
register struct buffer *b; |
547 |
register struct Lisp_Marker *m; |
register struct Lisp_Marker *m; |
548 |
|
|
549 |
CHECK_MARKER (marker, 0); |
CHECK_MARKER (marker); |
550 |
/* If position is nil or a marker that points nowhere, |
/* If position is nil or a marker that points nowhere, |
551 |
make this marker point nowhere. */ |
make this marker point nowhere. */ |
552 |
if (NILP (pos) |
if (NILP (pos) |
560 |
b = current_buffer; |
b = current_buffer; |
561 |
else |
else |
562 |
{ |
{ |
563 |
CHECK_BUFFER (buffer, 1); |
CHECK_BUFFER (buffer); |
564 |
b = XBUFFER (buffer); |
b = XBUFFER (buffer); |
565 |
/* If buffer is dead, set marker to point nowhere. */ |
/* If buffer is dead, set marker to point nowhere. */ |
566 |
if (EQ (b->name, Qnil)) |
if (EQ (b->name, Qnil)) |
582 |
return marker; |
return marker; |
583 |
} |
} |
584 |
|
|
585 |
CHECK_NUMBER_COERCE_MARKER (pos, 1); |
CHECK_NUMBER_COERCE_MARKER (pos); |
586 |
|
|
587 |
charno = XINT (pos); |
charno = XINT (pos); |
588 |
|
|
622 |
register struct buffer *b; |
register struct buffer *b; |
623 |
register struct Lisp_Marker *m; |
register struct Lisp_Marker *m; |
624 |
|
|
625 |
CHECK_MARKER (marker, 0); |
CHECK_MARKER (marker); |
626 |
|
|
627 |
if (NILP (buffer)) |
if (NILP (buffer)) |
628 |
b = current_buffer; |
b = current_buffer; |
629 |
else |
else |
630 |
{ |
{ |
631 |
CHECK_BUFFER (buffer, 1); |
CHECK_BUFFER (buffer); |
632 |
b = XBUFFER (buffer); |
b = XBUFFER (buffer); |
633 |
/* If buffer is dead, set marker to point nowhere. */ |
/* If buffer is dead, set marker to point nowhere. */ |
634 |
if (EQ (b->name, Qnil)) |
if (EQ (b->name, Qnil)) |
673 |
register struct buffer *b; |
register struct buffer *b; |
674 |
register struct Lisp_Marker *m; |
register struct Lisp_Marker *m; |
675 |
|
|
676 |
CHECK_MARKER (marker, 0); |
CHECK_MARKER (marker); |
677 |
|
|
678 |
if (NILP (buffer)) |
if (NILP (buffer)) |
679 |
b = current_buffer; |
b = current_buffer; |
680 |
else |
else |
681 |
{ |
{ |
682 |
CHECK_BUFFER (buffer, 1); |
CHECK_BUFFER (buffer); |
683 |
b = XBUFFER (buffer); |
b = XBUFFER (buffer); |
684 |
/* If buffer is dead, set marker to point nowhere. */ |
/* If buffer is dead, set marker to point nowhere. */ |
685 |
if (EQ (b->name, Qnil)) |
if (EQ (b->name, Qnil)) |
843 |
(marker) |
(marker) |
844 |
register Lisp_Object marker; |
register Lisp_Object marker; |
845 |
{ |
{ |
846 |
CHECK_MARKER (marker, 0); |
CHECK_MARKER (marker); |
847 |
return XMARKER (marker)->insertion_type ? Qt : Qnil; |
return XMARKER (marker)->insertion_type ? Qt : Qnil; |
848 |
} |
} |
849 |
|
|
855 |
(marker, type) |
(marker, type) |
856 |
Lisp_Object marker, type; |
Lisp_Object marker, type; |
857 |
{ |
{ |
858 |
CHECK_MARKER (marker, 0); |
CHECK_MARKER (marker); |
859 |
|
|
860 |
XMARKER (marker)->insertion_type = ! NILP (type); |
XMARKER (marker)->insertion_type = ! NILP (type); |
861 |
return type; |
return type; |