aboutsummaryrefslogtreecommitdiffstats
path: root/src/lisp.h
diff options
context:
space:
mode:
authorJuanma Barranquero2009-12-04 16:16:26 +0000
committerJuanma Barranquero2009-12-04 16:16:26 +0000
commitbe95bee9b8cf3f771fdb6438a44ded2880e65617 (patch)
treefe4ccba69d57fbd4f7d72bcc0f37d24a3fd490a5 /src/lisp.h
parent24c2d7ce87ac4e656d3c9c55b39f7b44d76e8f7a (diff)
downloademacs-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.h2
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;
2795extern Lisp_Object Vload_history, Vload_suffixes, Vload_file_rep_suffixes; 2795extern Lisp_Object Vload_history, Vload_suffixes, Vload_file_rep_suffixes;
2796extern int openp P_ ((Lisp_Object, Lisp_Object, Lisp_Object, 2796extern int openp P_ ((Lisp_Object, Lisp_Object, Lisp_Object,
2797 Lisp_Object *, Lisp_Object)); 2797 Lisp_Object *, Lisp_Object));
2798extern int isfloat_string P_ ((char *)); 2798extern int isfloat_string P_ ((char *, int));
2799extern void map_obarray P_ ((Lisp_Object, void (*) (Lisp_Object, Lisp_Object), 2799extern void map_obarray P_ ((Lisp_Object, void (*) (Lisp_Object, Lisp_Object),
2800 Lisp_Object)); 2800 Lisp_Object));
2801extern void dir_warning P_ ((char *, Lisp_Object)); 2801extern void dir_warning P_ ((char *, Lisp_Object));