diff options
| author | Paul Eggert | 2018-03-12 10:35:25 -0700 |
|---|---|---|
| committer | Paul Eggert | 2018-03-12 10:37:05 -0700 |
| commit | e067f1fd9feabc9c83cfbba177616a46b28d058a (patch) | |
| tree | ed584ec923078e1bd3d8ed66ca8df93a3475f022 /src/lread.c | |
| parent | 0965d94ca426765382f366bf48f88ba5f9500afd (diff) | |
| download | emacs-e067f1fd9feabc9c83cfbba177616a46b28d058a.tar.gz emacs-e067f1fd9feabc9c83cfbba177616a46b28d058a.zip | |
Revert overenthusiastic procfs fixup
Also, be more systematic in calls to string_to_number.
* src/sysdep.c (list_system_processes) [HAVE_PROCFS]: Allow pids
to be floating-point if they exceed fixnum range. This partially
reverts my patch 2018-03-09T20:06:05Z!eggert@cs.ucla.edu, which
went too far in fixing string-to-number mishandling.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lread.c b/src/lread.c index 0ea7677300b..381f9cf20c5 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -2693,7 +2693,7 @@ read_integer (Lisp_Object readcharfun, EMACS_INT radix) | |||
| 2693 | invalid_syntax (buf); | 2693 | invalid_syntax (buf); |
| 2694 | } | 2694 | } |
| 2695 | 2695 | ||
| 2696 | return string_to_number (buf, radix, 0); | 2696 | return string_to_number (buf, radix, false); |
| 2697 | } | 2697 | } |
| 2698 | 2698 | ||
| 2699 | 2699 | ||
| @@ -3502,7 +3502,7 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list) | |||
| 3502 | 3502 | ||
| 3503 | if (!quoted && !uninterned_symbol) | 3503 | if (!quoted && !uninterned_symbol) |
| 3504 | { | 3504 | { |
| 3505 | Lisp_Object result = string_to_number (read_buffer, 10, 0); | 3505 | Lisp_Object result = string_to_number (read_buffer, 10, false); |
| 3506 | if (! NILP (result)) | 3506 | if (! NILP (result)) |
| 3507 | return unbind_to (count, result); | 3507 | return unbind_to (count, result); |
| 3508 | } | 3508 | } |