Re: what is the point of point-min?

[jjanney@xmission.com (Jim Janney)]

Rob Thorpe <robert.thorpe@antenova.com> wrote, in part:

> From editfns.c:-
> 
> /* Return the start or end position of the region.
>    BEGINNINGP non-zero means return the start.
>    If there is no region active, signal an error. */
> 
> static Lisp_Object
> region_limit (beginningp)
>      int beginningp;
> {
>   extern Lisp_Object Vmark_even_if_inactive; /* Defined in callint.c.
> */
>   Lisp_Object m;
>   
>   if (!NILP (Vtransient_mark_mode)
>       && NILP (Vmark_even_if_inactive)
>       && NILP (current_buffer->mark_active))
>     Fsignal (Qmark_inactive, Qnil);
>   
>   m = Fmarker_position (current_buffer->mark);
>   if (NILP (m))
>     error ("There is no region now");
>   
>   if ((PT < XFASTINT (m)) == beginningp)
>     m = make_number (PT);
>   return m;
> }

Note that the description of BEGINNINGP in the comment is wrong: the way
the code is written, it only returns the start when beginningp is 1.

-- 
Jim Janney