diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2018-03-12 10:35:25 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2018-03-12 10:37:05 -0700 |
| commit | e067f1fd9feabc9c83cfbba177616a46b28d058a (patch) | |
| tree | ed584ec923078e1bd3d8ed66ca8df93a3475f022 /src/sysdep.c | |
| parent | 0965d94ca426765382f366bf48f88ba5f9500afd (diff) | |
| download | emacs-e067f1fd9feabc9c83cfbba177616a46b28d058a.tar.gz | |
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/sysdep.c')
| -rw-r--r-- | src/sysdep.c | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/sysdep.c b/src/sysdep.c index 1eaf648ea78..c59034ce5c3 100644 --- a/src/sysdep.c +++ b/src/sysdep.c @@ -3006,11 +3006,7 @@ list_system_processes (void) for (tail = proclist; CONSP (tail); tail = next) { next = XCDR (tail); - Lisp_Object pidstring = XCAR (tail); - Lisp_Object pid = Fstring_to_number (pidstring, Qnil); - if (!INTEGERP (pid) || XINT (pid) <= 0) - xsignal1 (Qoverflow_error, pidstring); - XSETCAR (tail, pid); + XSETCAR (tail, Fstring_to_number (XCAR (tail), Qnil)); } /* directory_files_internal returns the files in reverse order; undo |