diff options
| author | Paul Eggert | 2019-10-20 17:40:43 -0700 |
|---|---|---|
| committer | Paul Eggert | 2019-10-20 17:41:07 -0700 |
| commit | 9e15df208c19ca5aafd33a6cf801e7183543480e (patch) | |
| tree | ac68aa0e4879e060e8cd27bbd264514392282c74 | |
| parent | 30deac84c4168a6315a08a0dd85f6dde9b9df439 (diff) | |
| download | emacs-9e15df208c19ca5aafd33a6cf801e7183543480e.tar.gz emacs-9e15df208c19ca5aafd33a6cf801e7183543480e.zip | |
Avoid fixnum round trip in prefix-numeric-value
* src/callint.c (Fprefix_numeric_value): Simplify.
| -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")'. */) | |||
| 798 | else if (EQ (raw, Qminus)) | 798 | else if (EQ (raw, Qminus)) |
| 799 | XSETINT (val, -1); | 799 | XSETINT (val, -1); |
| 800 | else if (CONSP (raw) && FIXNUMP (XCAR (raw))) | 800 | else if (CONSP (raw) && FIXNUMP (XCAR (raw))) |
| 801 | XSETINT (val, XFIXNUM (XCAR (raw))); | 801 | val = XCAR (raw); |
| 802 | else if (FIXNUMP (raw)) | 802 | else if (FIXNUMP (raw)) |
| 803 | val = raw; | 803 | val = raw; |
| 804 | else | 804 | else |