From: Philipp Stephani <phst@google.com>
Date: Sat, 30 Sep 2017 18:40:02 +0000 (+0200)
Subject: * src/editfns.c (Fchar_after): Small optimization.
X-Git-Tag: emacs-27.0.90~6272
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=66d37175ecac41dfb2f854dbb148dcc7ca87b345;p=emacs.git

* src/editfns.c (Fchar_after): Small optimization.
---

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)