[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: what is the point of point-min?
From: |
Jim Janney |
Subject: |
Re: what is the point of point-min? |
Date: |
Sun, 7 Sep 2003 00:50:01 -0600 |
User-agent: |
MacSOUP/2.5b2 (Mac OS 9.2.2) |
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