From 66d37175ecac41dfb2f854dbb148dcc7ca87b345 Mon Sep 17 00:00:00 2001 From: Philipp Stephani Date: Sat, 30 Sep 2017 20:40:02 +0200 Subject: [PATCH] * src/editfns.c (Fchar_after): Small optimization. --- src/editfns.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/editfns.c b/src/editfns.c index e326604467c..4dcf7cbe6ef 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) -- 2.39.5