comparison src/editfns.c @ 25647:947cb0e32a1d

(Fline_beginning_position): Handle minibuffer prompt here.

25646:9154af188477

DEFUN ("line-beginning-position", Fline_beginning_position, Sline_beginning_position,
  0, 1, 0,
  "Return the character position of the first character on the current line.\n\
With argument N not nil or 1, move forward N - 1 lines first.\n\
If scan reaches end of buffer, return that position.\n\
This function does not move point.")
  (n)
     Lisp_Object n;
{
  register int orig, orig_byte, end;

  orig = PT;
  orig_byte = PT_BYTE;
  Fforward_line (make_number (XINT (n) - 1));
  end = PT;
  SET_PT_BOTH (orig, orig_byte);

  return make_number (end);
}

25647:947cb0e32a1d

DEFUN ("line-beginning-position", Fline_beginning_position, Sline_beginning_position,
  0, 1, 0,
  "Return the character position of the first character on the current line.\n\
With argument N not nil or 1, move forward N - 1 lines first.\n\
If scan reaches end of buffer, return that position.\n\
This function does not move point.\n\n\
In the minibuffer, if point is not within the prompt,\n\
the return value is never within the prompt either.")

  (n)
     Lisp_Object n;
{
  register int orig, orig_byte, end;

  orig = PT;
  orig_byte = PT_BYTE;
  Fforward_line (make_number (XINT (n) - 1));
  end = PT;

  if (INTEGERP (current_buffer->minibuffer_prompt_length)
      && orig >= XFASTINT (current_buffer->minibuffer_prompt_length)
      && end < XFASTINT (current_buffer->minibuffer_prompt_length))
    end = XFASTINT (current_buffer->minibuffer_prompt_length);

  SET_PT_BOTH (orig, orig_byte);

  return make_number (end);
}