[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH] * src/editfns.c (Fchar_after): Small optimization.
From: |
Philipp Stephani |
Subject: |
[PATCH] * src/editfns.c (Fchar_after): Small optimization. |
Date: |
Sat, 30 Sep 2017 20:41:11 +0200 |
---
src/editfns.c | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/editfns.c b/src/editfns.c
index b03eb947de..e87c682f97 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 == 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.14.1
- [PATCH] * src/editfns.c (Fchar_after): Small optimization.,
Philipp Stephani <=