diff options
| author | Juanma Barranquero | 2009-12-04 16:16:26 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2009-12-04 16:16:26 +0000 |
| commit | be95bee9b8cf3f771fdb6438a44ded2880e65617 (patch) | |
| tree | fe4ccba69d57fbd4f7d72bcc0f37d24a3fd490a5 /src/lisp.h | |
| parent | 24c2d7ce87ac4e656d3c9c55b39f7b44d76e8f7a (diff) | |
| download | emacs-be95bee9b8cf3f771fdb6438a44ded2880e65617.tar.gz emacs-be95bee9b8cf3f771fdb6438a44ded2880e65617.zip | |
Fix `string-to-number' to deal consistently with integers and floats.
* lread.c (isfloat_string): New argument ignore_trailing to accept all
trailing characters, not just whitespace.
(read1): Pass new arg 0 to keep old behavior.
* data.c (Fstring_to_number): Pass 1 to isfloat_string to ignore
trailing chars, as it is already done for integers. Doc fixes.
* lisp.h (isfloat_string): Add new arg to declaration of isfloat_string.
Diffstat (limited to 'src/lisp.h')
| -rw-r--r-- | src/lisp.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lisp.h b/src/lisp.h index 2052dfa0afc..3bdecc51033 100644 --- a/src/lisp.h +++ b/src/lisp.h | |||
| @@ -2795,7 +2795,7 @@ extern Lisp_Object Vcurrent_load_list; | |||
| 2795 | extern Lisp_Object Vload_history, Vload_suffixes, Vload_file_rep_suffixes; | 2795 | extern Lisp_Object Vload_history, Vload_suffixes, Vload_file_rep_suffixes; |
| 2796 | extern int openp P_ ((Lisp_Object, Lisp_Object, Lisp_Object, | 2796 | extern int openp P_ ((Lisp_Object, Lisp_Object, Lisp_Object, |
| 2797 | Lisp_Object *, Lisp_Object)); | 2797 | Lisp_Object *, Lisp_Object)); |
| 2798 | extern int isfloat_string P_ ((char *)); | 2798 | extern int isfloat_string P_ ((char *, int)); |
| 2799 | extern void map_obarray P_ ((Lisp_Object, void (*) (Lisp_Object, Lisp_Object), | 2799 | extern void map_obarray P_ ((Lisp_Object, void (*) (Lisp_Object, Lisp_Object), |
| 2800 | Lisp_Object)); | 2800 | Lisp_Object)); |
| 2801 | extern void dir_warning P_ ((char *, Lisp_Object)); | 2801 | extern void dir_warning P_ ((char *, Lisp_Object)); |