[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] feature/gnus-select f82d6e9 059/218: Revert overenthusiast
From: |
Andrew G Cohen |
Subject: |
[Emacs-diffs] feature/gnus-select f82d6e9 059/218: Revert overenthusiastic procfs fixup |
Date: |
Fri, 14 Dec 2018 03:34:57 -0500 (EST) |
branch: feature/gnus-select
commit f82d6e91bd3fe346cb806a97fe2db0fa138acb44
Author: Paul Eggert <address@hidden>
Commit: Andrew G Cohen <address@hidden>
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:address@hidden, which
went too far in fixing string-to-number mishandling.
---
src/data.c | 2 +-
src/lread.c | 4 ++--
src/process.c | 2 +-
src/sysdep.c | 6 +-----
src/xfaces.c | 2 +-
5 files changed, 6 insertions(+), 10 deletions(-)
diff --git a/src/data.c b/src/data.c
index 62b3fcf..06308c6 100644
--- a/src/data.c
+++ b/src/data.c
@@ -2754,7 +2754,7 @@ If the base used is not 10, STRING is always parsed as an
integer. */)
while (*p == ' ' || *p == '\t')
p++;
- val = string_to_number (p, b, 1);
+ val = string_to_number (p, b, true);
return NILP (val) ? make_number (0) : val;
}
diff --git a/src/lread.c b/src/lread.c
index 0ea7677..381f9cf 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2693,7 +2693,7 @@ read_integer (Lisp_Object readcharfun, EMACS_INT radix)
invalid_syntax (buf);
}
- return string_to_number (buf, radix, 0);
+ return string_to_number (buf, radix, false);
}
@@ -3502,7 +3502,7 @@ read1 (Lisp_Object readcharfun, int *pch, bool
first_in_list)
if (!quoted && !uninterned_symbol)
{
- Lisp_Object result = string_to_number (read_buffer, 10, 0);
+ Lisp_Object result = string_to_number (read_buffer, 10, false);
if (! NILP (result))
return unbind_to (count, result);
}
diff --git a/src/process.c b/src/process.c
index 9b9b9f3..11d914a 100644
--- a/src/process.c
+++ b/src/process.c
@@ -6844,7 +6844,7 @@ SIGCODE may be an integer, or a symbol whose name is a
signal name. */)
if (NILP (tem))
{
Lisp_Object process_number
- = string_to_number (SSDATA (process), 10, 1);
+ = string_to_number (SSDATA (process), 10, true);
if (NUMBERP (process_number))
tem = process_number;
}
diff --git a/src/sysdep.c b/src/sysdep.c
index 1eaf648..c59034c 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
diff --git a/src/xfaces.c b/src/xfaces.c
index 56df065..a9c2f37 100644
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -3392,7 +3392,7 @@ DEFUN ("internal-set-lisp-face-attribute-from-resource",
value = Qunspecified;
else if (EQ (attr, QCheight))
{
- value = Fstring_to_number (value, make_number (10));
+ value = Fstring_to_number (value, Qnil);
if (!INTEGERP (value) || XINT (value) <= 0)
signal_error ("Invalid face height from X resource", value);
}
- [Emacs-diffs] feature/gnus-select 59a41b8 107/218: Optimize tramp-tests.el, (continued)
- [Emacs-diffs] feature/gnus-select 59a41b8 107/218: Optimize tramp-tests.el, Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select d74261f 158/218: * doc/lispref/windows.texi (Selecting Windows): Fix a typo., Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select 367ff81 120/218: More proofreading of the Emacs manual, Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select e2b6627 049/218: Improve and make use of 'image--get-image', Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select c8d9b5d 051/218: Unify documentation on 'save-some-buffers', Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select 958e0ff 037/218: Allow underline position variables be buffer-local, Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select 17d92f5 031/218: Quieten compilation of some test/lisp files, Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select 1731947 053/218: Document 'transpose-sentences' and 'transpose-paragraphs', Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select 280de6e 061/218: Make compiler warn about use of obsolete hooks, Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select 8c08be2 058/218: * lisp/minibuffer.el (completion-cycle-threshold): Doc fix., Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select f82d6e9 059/218: Revert overenthusiastic procfs fixup,
Andrew G Cohen <=
- [Emacs-diffs] feature/gnus-select ad8d136 054/218: Allow toggling Grep command abbreviation, and rename related symbols, Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select 3c8297e 066/218: ; tiny NEWS fix, Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select aa527be 071/218: Replace an obsolete alias in tpu-mapper, Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select 16cfb9a 074/218: * lisp/progmodes/ada-mode.el (ada-clean-buffer-before-saving): Doc fix., Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select 29b7170 073/218: Doc fixes re obsolete items, Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select 77bf8e0 077/218: Fix line-wrapping for term.el (Bug#30775), Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select e274f0b 075/218: Fix some allout.el aliases, Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select c6e52fa 088/218: Improve robustness in tramp-sh.el, Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select c4bd17e 079/218: ; * test/README: Fix typo, Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select 4a6cf41 156/218: * doc/lispref/internals.texi (Writing Emacs Primitives): Fix grammar., Andrew G Cohen, 2018/12/14