From: Paul Eggert <eggert@cs.ucla.edu>
Date: Mon, 21 Oct 2019 00:40:43 +0000 (-0700)
Subject: Avoid fixnum round trip in prefix-numeric-value
X-Git-Tag: emacs-27.0.90~938
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9e15df208c19ca5aafd33a6cf801e7183543480e;p=emacs.git

Avoid fixnum round trip in prefix-numeric-value

* src/callint.c (Fprefix_numeric_value): Simplify.
---

diff --git a/src/callint.c b/src/callint.c
index 449b5048609..9d5767a21fe 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -798,7 +798,7 @@ Its numeric meaning is what you would get from `(interactive "p")'.  */)
   else if (EQ (raw, Qminus))
     XSETINT (val, -1);
   else if (CONSP (raw) && FIXNUMP (XCAR (raw)))
-    XSETINT (val, XFIXNUM (XCAR (raw)));
+    val = XCAR (raw);
   else if (FIXNUMP (raw))
     val = raw;
   else