Function: marker-buffer

marker-buffer is a function defined in marker.c.

Signature

(marker-buffer MARKER)

Documentation

Return the buffer that MARKER points into, or nil if none.

Returns nil if MARKER points into a dead buffer.

View in manual

Source Code

// Defined in /usr/src/emacs/src/marker.c
{
  register Lisp_Object buf;
  CHECK_MARKER (marker);
  if (XMARKER (marker)->buffer)
    {
      XSETBUFFER (buf, XMARKER (marker)->buffer);
      /* If the buffer is dead, we're in trouble: the buffer pointer here
	 does not preserve the buffer from being GC'd (it's weak), so
	 markers have to be unlinked from their buffer as soon as the buffer
	 is killed.  */
      eassert (BUFFER_LIVE_P (XBUFFER (buf)));
      return buf;
    }
  return Qnil;
}