Function: internal--labeled-narrow-to-region

internal--labeled-narrow-to-region is a function defined in editfns.c.

Signature

(internal--labeled-narrow-to-region START END LABEL)

Documentation

Restrict this buffer to START-END, and label the restriction with LABEL.

This is an internal function used by with-restriction.

Source Code

// Defined in /usr/src/emacs/src/editfns.c
{
  Lisp_Object buf = Fcurrent_buffer ();
  Lisp_Object outermost_restriction = list3 (Qoutermost_restriction,
					     Fpoint_min_marker (),
					     Fpoint_max_marker ());
  Fnarrow_to_region (start, end);
  if (NILP (labeled_restrictions_peek_label (buf)))
    labeled_restrictions_push (buf, outermost_restriction);
  labeled_restrictions_push (buf, list3 (label,
					 Fpoint_min_marker (),
					 Fpoint_max_marker ()));
  return Qnil;
}