[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [PATCH] * src/editfns.c (Fchar_after): Small optimization.
From: |
Eli Zaretskii |
Subject: |
Re: [PATCH] * src/editfns.c (Fchar_after): Small optimization. |
Date: |
Sun, 01 Oct 2017 18:04:07 +0300 |
> From: Philipp Stephani <address@hidden>
> Date: Sun, 1 Oct 2017 12:56:47 +0200
> Cc: Philipp Stephani <address@hidden>
>
> diff --git a/src/editfns.c b/src/editfns.c
> index e326604467..4dcf7cbe6e 100644
> --- a/src/editfns.c
> +++ b/src/editfns.c
> @@ -1256,10 +1256,10 @@ If POS is out of range, the value is nil. */)
> if (NILP (pos))
> {
> pos_byte = PT_BYTE;
> - XSETFASTINT (pos, PT);
> + if (pos_byte < BEGV_BYTE || pos_byte >= ZV_BYTE)
> + return Qnil;
> }
> -
> - if (MARKERP (pos))
> + else if (MARKERP (pos))
> {
> pos_byte = marker_byte_position (pos);
> if (pos_byte < BEGV_BYTE || pos_byte >= ZV_BYTE)
LGTM, thanks.