Lines Matching refs:marker
55 and everywhere there is a marker. So we find the one of these places
200 cache the correspondence by creating a marker here.
204 Lisp_Object marker, buffer;
205 marker = Fmake_marker ();
207 set_marker_both (marker, buffer, best_below, best_below_byte);
231 cache the correspondence by creating a marker here.
235 Lisp_Object marker, buffer;
236 marker = Fmake_marker ();
238 set_marker_both (marker, buffer, best_above, best_above_byte);
385 cache the correspondence by creating a marker here.
391 Lisp_Object marker, buffer;
392 marker = Fmake_marker ();
394 set_marker_both (marker, buffer, best_below, best_below_byte);
418 cache the correspondence by creating a marker here.
424 Lisp_Object marker, buffer;
425 marker = Fmake_marker ();
427 set_marker_both (marker, buffer, best_above, best_above_byte);
447 DEFUN ("marker-buffer", Fmarker_buffer, Smarker_buffer, 1, 1, 0,
450 (marker)
451 register Lisp_Object marker;
454 CHECK_MARKER (marker);
455 if (XMARKER (marker)->buffer)
457 XSETBUFFER (buf, XMARKER (marker)->buffer);
458 /* Return marker's buffer only if it is not dead. */
465 DEFUN ("marker-position", Fmarker_position, Smarker_position, 1, 1, 0,
468 (marker)
469 Lisp_Object marker;
471 CHECK_MARKER (marker);
472 if (XMARKER (marker)->buffer)
473 return make_number (XMARKER (marker)->charpos);
479 DEFUN ("set-marker", Fset_marker, Sset_marker, 2, 3, 0,
482 If POSITION is nil, makes marker point nowhere.
485 (marker, position, buffer)
486 Lisp_Object marker, position, buffer;
492 CHECK_MARKER (marker);
493 m = XMARKER (marker);
495 /* If position is nil or a marker that points nowhere,
496 make this marker point nowhere. */
501 return marker;
510 /* If buffer is dead, set marker to point nowhere. */
514 return marker;
519 of an existing marker, and MARKER is already in the same buffer. */
525 return marker;
554 return marker;
561 set_marker_restricted (marker, pos, buffer)
562 Lisp_Object marker, pos, buffer;
568 CHECK_MARKER (marker);
569 m = XMARKER (marker);
571 /* If position is nil or a marker that points nowhere,
572 make this marker point nowhere. */
577 return marker;
586 /* If buffer is dead, set marker to point nowhere. */
590 return marker;
595 of an existing marker, and MARKER is already in the same buffer. */
601 return marker;
630 return marker;
638 set_marker_both (marker, buffer, charpos, bytepos)
639 Lisp_Object marker, buffer;
645 CHECK_MARKER (marker);
646 m = XMARKER (marker);
654 /* If buffer is dead, set marker to point nowhere. */
658 return marker;
681 return marker;
688 set_marker_restricted_both (marker, buffer, charpos, bytepos)
689 Lisp_Object marker, buffer;
695 CHECK_MARKER (marker);
696 m = XMARKER (marker);
704 /* If buffer is dead, set marker to point nowhere. */
708 return marker;
740 return marker;
752 unchain_marker (marker)
753 register struct Lisp_Marker *marker;
758 b = marker->buffer;
765 marker->buffer = 0;
773 if (marker == tail)
778 /* Deleting first marker from the buffer's chain. Crash
779 if new first marker in chain does not say it belongs
787 /* We have removed the marker from the chain;
800 /* Return the char position of marker MARKER, as a C integer. */
803 marker_position (marker)
804 Lisp_Object marker;
806 register struct Lisp_Marker *m = XMARKER (marker);
815 /* Return the byte position of marker MARKER, as a C integer. */
818 marker_byte_position (marker)
819 Lisp_Object marker;
821 register struct Lisp_Marker *m = XMARKER (marker);
835 DEFUN ("copy-marker", Fcopy_marker, Scopy_marker, 1, 2, 0,
836 doc: /* Return a new marker pointing at the same place as MARKER.
837 If argument is a number, makes a new marker pointing
839 The optional argument TYPE specifies the insertion type of the new marker;
840 see `marker-insertion-type'. */)
841 (marker, type)
842 register Lisp_Object marker, type;
846 CHECK_TYPE (INTEGERP (marker) || MARKERP (marker), Qinteger_or_marker_p, marker);
849 Fset_marker (new, marker,
850 (MARKERP (marker) ? Fmarker_buffer (marker) : Qnil));
855 DEFUN ("marker-insertion-type", Fmarker_insertion_type,
858 The value nil means the marker stays before text inserted there. */)
859 (marker)
860 register Lisp_Object marker;
862 CHECK_MARKER (marker);
863 return XMARKER (marker)->insertion_type ? Qt : Qnil;
866 DEFUN ("set-marker-insertion-type", Fset_marker_insertion_type,
869 If TYPE is t, it means the marker advances when you insert text at it.
870 If TYPE is nil, it means the marker stays behind when you insert text at it. */)
871 (marker, type)
872 Lisp_Object marker, type;
874 CHECK_MARKER (marker);
876 XMARKER (marker)->insertion_type = ! NILP (type);