From 51b59d794fe1d4a82fcd842b478657cc93f91595 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sat, 22 Jan 2011 18:56:06 -0800 Subject: Promote SSDATA macro from gtkutil.c and xsmfns.c to lisp.h. --- src/callproc.c | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/callproc.c') diff --git a/src/callproc.c b/src/callproc.c index 4c17cecdce..bc4c6a2f20 100644 --- a/src/callproc.c +++ b/src/callproc.c @@ -1278,7 +1278,7 @@ getenv_internal_1 (const char *var, int varlen, char **value, int *valuelen, { if (SBYTES (entry) > varlen && SREF (entry, varlen) == '=') { - *value = (char *) SDATA (entry) + (varlen + 1); + *value = SSDATA (entry) + (varlen + 1); *valuelen = SBYTES (entry) - (varlen + 1); return 1; } @@ -1310,7 +1310,7 @@ getenv_internal (const char *var, int varlen, char **value, int *valuelen, = Fframe_parameter (NILP (frame) ? selected_frame : frame, Qdisplay); if (STRINGP (display)) { - *value = (char *) SDATA (display); + *value = SSDATA (display); *valuelen = SBYTES (display); return 1; } @@ -1594,4 +1594,3 @@ See `setenv' and `getenv'. */); defsubr (&Sgetenv_internal); defsubr (&Scall_process_region); } - -- cgit v1.2.3