Mercurial > emacs
changeset 11735:f2f0f3b55a7e
(isfloat_string): Reject strings like "0.5+".
(init_lread): Don't warn about missing installation dirs
when using dirs derived from the executable.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 07 May 1995 17:30:36 +0000 |
| parents | e6675e3ed8b3 |
| children | 07ac8009368c |
| files | src/lread.c |
| diffstat | 1 files changed, 26 insertions(+), 21 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lread.c Sun May 07 09:02:39 1995 +0000 +++ b/src/lread.c Sun May 07 17:30:36 1995 +0000 @@ -1501,9 +1501,9 @@ { state |= E_CHAR; cp++; + if (*cp == '+' || *cp == '-') + cp++; } - if ((*cp == '+') || (*cp == '-')) - cp++; if (*cp >= '0' && *cp <= '9') { @@ -2068,6 +2068,7 @@ init_lread () { char *normal; + int turn_off_warning = 0; /* Compute the default load-path. */ #ifdef CANNOT_DUMP @@ -2103,7 +2104,10 @@ if (!NILP (tem1)) { if (NILP (Fmember (tem, Vload_path))) - Vload_path = nconc2 (Vload_path, Fcons (tem, Qnil)); + { + turn_off_warning = 1; + Vload_path = nconc2 (Vload_path, Fcons (tem, Qnil)); + } } else /* That dir doesn't exist, so add the build-time @@ -2133,25 +2137,26 @@ EMACSLOADPATH environment variable below, disable the warning on NT. */ /* Warn if dirs in the *standard* path don't exist. */ - { - Lisp_Object path_tail; + if (!turn_off_warning) + { + Lisp_Object path_tail; - for (path_tail = Vload_path; - !NILP (path_tail); - path_tail = XCONS (path_tail)->cdr) - { - Lisp_Object dirfile; - dirfile = Fcar (path_tail); - if (STRINGP (dirfile)) - { - dirfile = Fdirectory_file_name (dirfile); - if (access (XSTRING (dirfile)->data, 0) < 0) - fprintf (stderr, - "Warning: Lisp directory `%s' does not exist.\n", - XSTRING (Fcar (path_tail))->data); - } - } - } + for (path_tail = Vload_path; + !NILP (path_tail); + path_tail = XCONS (path_tail)->cdr) + { + Lisp_Object dirfile; + dirfile = Fcar (path_tail); + if (STRINGP (dirfile)) + { + dirfile = Fdirectory_file_name (dirfile); + if (access (XSTRING (dirfile)->data, 0) < 0) + fprintf (stderr, + "Warning: Lisp directory `%s' does not exist.\n", + XSTRING (Fcar (path_tail))->data); + } + } + } #endif /* WINDOWSNT */ /* If the EMACSLOADPATH environment variable is set, use its value.