diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2019-10-20 17:40:43 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2019-10-20 17:41:07 -0700 |
| commit | 9e15df208c19ca5aafd33a6cf801e7183543480e (patch) | |
| tree | ac68aa0e4879e060e8cd27bbd264514392282c74 /src/callint.c | |
| parent | 30deac84c4168a6315a08a0dd85f6dde9b9df439 (diff) | |
| download | emacs-9e15df208c19ca5aafd33a6cf801e7183543480e.tar.gz | |
Avoid fixnum round trip in prefix-numeric-value
* src/callint.c (Fprefix_numeric_value): Simplify.
Diffstat (limited to 'src/callint.c')
| -rw-r--r-- | src/callint.c | 2 |
1 files changed, 1 insertions, 1 deletions
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 |