/[emacs]/emacs/src/sysdep.c
ViewVC logotype

Diff of /emacs/src/sysdep.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.237 by rms, Thu Jul 11 17:29:56 2002 UTC revision 1.238 by raeburn, Mon Jul 15 00:00:37 2002 UTC
# Line 795  sys_subshell () Line 795  sys_subshell ()
795      goto xyzzy;      goto xyzzy;
796    
797    dir = expand_and_dir_to_file (Funhandled_file_name_directory (dir), Qnil);    dir = expand_and_dir_to_file (Funhandled_file_name_directory (dir), Qnil);
798    str = (unsigned char *) alloca (XSTRING (dir)->size + 2);    str = (unsigned char *) alloca (SCHARS (dir) + 2);
799    len = XSTRING (dir)->size;    len = SCHARS (dir);
800    bcopy (XSTRING (dir)->data, str, len);    bcopy (SDATA (dir), str, len);
801    if (str[len - 1] != '/') str[len++] = '/';    if (str[len - 1] != '/') str[len++] = '/';
802    str[len] = 0;    str[len] = 0;
803   xyzzy:   xyzzy:
# Line 2465  init_system_name () Line 2465  init_system_name ()
2465  #endif /* BSD4_1 */  #endif /* BSD4_1 */
2466    {    {
2467      unsigned char *p;      unsigned char *p;
2468      for (p = XSTRING (Vsystem_name)->data; *p; p++)      for (p = SDATA (Vsystem_name); *p; p++)
2469        if (*p == ' ' || *p == '\t')        if (*p == ' ' || *p == '\t')
2470          *p = '-';          *p = '-';
2471    }    }

Legend:
Removed from v.1.237  
changed lines
  Added in v.1.238

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26