* callproc.c (egetenv_internal): Add arg and rename from egetenv ...

* lisp.h (egetenv): ... because of a new inline function used to
avoid calls to strlen for a compile-time constants.

1 files changed, 3 insertions, 3 deletions

diff --git a/src/callproc.c b/src/callproc.c
index 01008312155..e8b61b9f01f 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -1488,14 +1488,14 @@ If optional parameter ENV is a list, then search this list instead of
 }
 
 /* A version of getenv that consults the Lisp environment lists,
-   easily callable from C.  */
+   easily callable from C.  This is usually called from egetenv.  */
 char *
-egetenv (const char *var)
+egetenv_internal (const char *var, ptrdiff_t len)
 {
   char *value;
   ptrdiff_t valuelen;
 
-  if (getenv_internal (var, strlen (var), &value, &valuelen, Qnil))
+  if (getenv_internal (var, len, &value, &valuelen, Qnil))
     return value;
   else
     return 0;