From 9e15df208c19ca5aafd33a6cf801e7183543480e Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sun, 20 Oct 2019 17:40:43 -0700 Subject: [PATCH] Avoid fixnum round trip in prefix-numeric-value * src/callint.c (Fprefix_numeric_value): Simplify. --- src/callint.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.39.2